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face pressure  distributions  and  aerodynamic  forces  on  three-dimensional  wing- 
body  combinations  at  transonic  speeds,  including  viscous  effects.  Volume  I 
also  contains  an  extensive  set  of  comparisons  between  numerical  predictions 
and  experimental  results.  Detailed  instructions  required  to  use  the  program 
are  provided  in  Volume  II,  "User's  Manual  and  Code  Description."  Volume  III 
was  written  at  Sybucon,  Inc.,  Atlanta,  Georgia  and  contains  a complete  descrip- 
tion of  the  theory  and  program  that  computes  the  full  three-dimensional  boundary 
layer  over  the  wing.  This  work  was  performed  by  Sybucon  under  subcontract  to 
Grumman  Aerospace.  Although  this  program  operates  independently  of  the  program 
described  in  Volume  II,  the  input  data  set  required  for  the  full  three-dimensional 
boundary  layer  computation  is  generated  by  the  code  documented  in  Volume  II. 
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Grumman  Research  Department  and  Grumman  Consultants  Prof.  A.  Jameson,  Prof.  J. 
Werner  and  Dr.  E.  Murman.  As  noted  above,  the  three-dimensional  boundary  layer 
program  was  written  by  Dr.  J.  Nash  and  Dr.  R.  Scruggs  of  Sybucon,  Inc. 


TABLE  OF  CONTENTS 


SECTION  PAGE 

I USER’S  MANUAL  1 

1.  Introduction  1 

2.  Program  Limits  and  Computational  Cost  4 

3.  Input  Procedure  11 

a.  General  11 

b.  Description  of  Input  Data  12 

c.  Mesh  and  Mapping  Generation  33 

d.  Example  Inputs  46 

4.  Output  Results  55 

a.  General  55 

b.  Description  of  Internally  Generated 

Messages  & User  Response  103 

5.  Job  Control  Language  108 

a.  General  108 

b.  Sample  JCL  108 

6.  Sample  Case  114 

II  CODE  DESCRIPTION  265 

1 . Introduction  265 

2.  An  Overview  of  the  Program  265 

3.  Common  Blocks  269 

a.  Summary  Map  of  Common  Blocks  273 

b.  Common  Block  Listing  274 

c.  Detail  Description  of  Each  Common  Block  279 

4.  Tape/Disk  Units  308 

5.  Subroutines  309 

6.  CDC/lBM  Conversion  427 

7.  Graphics  Package  429 

references  468 


fHICXDING  PAOI  BL4MC 


LIST  OF  ILLUSTRATIONS 


FIGURE  PAGE 

1.  Asymptotic  Approach  of  Cp  to  Its  Converged  8 

Value 

2.  Maximum  Error  After  220  Iterations  For  Different  9 

Mach  Numbers,  Angles-of- Attack  and  Configurations 

3.  The  Variation  of  the  Number  of  Iterations  Required  10 

to  Obtain  Different  Convergence  Levels  with  the 
Relaxation  Factor  ^ 

4.  Variation  for  the  Internally  Generated  Mesh  40 

5.  Mesh  and  Mapping  Relationship  4l 

6.  Solution  Dependence  on  X Mesh  42 

7.  Z Mesh  for  Solution  Effects  Study  43 

8.  Example  of  Mapping  Construction  44-45 

9.  Example  of  Program  Input  Data  Sets  47-54 

10.  Sample  Program  Output  65-102 

11.  Main  Program  Flowchart  267-268 

12.  Graphics  Program  Flowchart  431 

13.  Example  of  Graphics  Output  445-4-67 

LIST  OF  TABIES 

TAB  IE  PAGE 

I Summary  of  Program  Limits  7 

II  Z Grid  Effects  on  Solution  39 

III  Internally  Generated  Diagnostic  Messages  104-107 


LIST  OF  SYMBOLS 


1 


a Constant  used  in  mesh  generation 

b Constant  used  in  mesh  generation 

Cp  Pressure  coefficient 

L Grid  index 

M Freestream  Mach  number 

00 

X/C  Fraction  of  local  chord 

Y/S  Fraction  of  wing  span 

Z Mesh  point  in  vertical  grid 

Greek 

a Angle-of-attack 

A Increment  to  quantity 

6*  Displacement  thickness 

e Correction  to  potential 

T1  General  grid  point  location 


£ 

Summation 

S 

Transformation  variable 

Subscrij 

nts 

i 

Index 

L 

Lower  surface 

max 

Maximum  value  of  quantity 

root 

Value  of  variable  at  wing  root 

u 

Upper  surface 

vii 


SECTION  I 
USER'S  MANUAL 

1.  INTRODUCTION 

This  volume  provides  the  detailed  information  required  to  use  the  program 
described  in  Volume  I of  this  report.  This  includes  a description  of  the  in- 
put data  set,  the  output  results,  and  typical  JCL  for  IBM  and  CDC  operation. 

A description  of  the  differences  in  the  code  between  IBM  and  CDC  is  presented 
in  the  second  part  of  this  volume.  We  also  include  a complete  sample  case  in 
order  to  illustrate  the  use  of  the  program.  Although  the  details  of  the  method 
are  described  in  Volume  I,  a summary  of  the  method  is  included  below. 

The  program  is  a numerical  method  that  predicts  the  detailed  pressure 
distribution  on  wing-body  combinations  at  transonic  Mach  numbers  less  than  one 
and  integrates  the  surface  pressures  to  obtain  aircraft  force  and  moment  data. 
The  code  has  been  developed  with  the  intent  of  providing  the  user  with  an  easy 
to  use  and  reliable  tool.  The  basic  inviscid  prediction  method  is  the  modified 
transonic  small  disturbance  theory  program  developed  by  Ballhaus,  Bailey  and 
Frick  (Reference  l).  In  order  to  provide  accurate  surface  pressure  predictions 
on  the  wing,  several  additional  features  of  the  typical  transonic  flowfield. 
have  been  incorporated.  These  consist  of  the  viscous  displacement  effect, 
local  strong  viscous  interaction  at  the  shock  wave  foot  and  at  the  trailing 
edge  (including  an  approximate  treatment  of  local  shallow  separations),  and 
finally,  the  interaction  effect  of  the  fuselage. 

The  program  has  been  applied  to  a large  number  of  cases  for  which  experi- 
mental data  is  available  and  to  several  examples  of  extreme  geometric  configura 
tions  for  which  the  method  will  operate  successfully,  although  no  data  is  avail 
able.  The  experience  gained  during  the  effort  has  been  used  to  reduce  the  com- 
plexity of  the  program  input  to  its  simplest  practical  form,  allowing  the  user 
to  concentrate  on  the  aerodynamic  aspects  of  the  analysis.  The  program  should 
not  be  expected  to  produce  results  if  there  are  significant  regions  of  separ- 
ated flow,  and  this  fact  can  be  used  to  determine  the  limits  of  the  program 
applicability  for  any  particular  case.  Body  effects  are  incorporated  into  the 
program  by  providing  an  infinite  rectangular  cross-section  upon  which  the  fuse- 
lage slopes  are  applied,  after  suitable  modification  via  slender  body  theory 
to  take  into  account  the  transfer  of  the  boundary  condition  from  the  fuselage 
surface  to  the  rectangular  cross-section  boundary  condition  support  surface. 

In  addition,  the  program  is  assembled  in  a modular  form  that  allows  for  an 
easy  upgrading  as  various  improved  analysis  methods  become  available. 
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Three-dimensional  transonic  flow  calculation  methods  were  initially 
developed  by  F.  R.  Bailey  and  W.  F.  Ballhaus  at  the  NASA  Ames  Research  Center, 
using  the  classical  transonic  small  disturbance  equations.  Experience  with 
the  classical  transonic  small  disturbance  theory  for  wings  with  moderate  to 
large  sweep  indicated  that  some  refinement  had  to  be  incorporated  into  the 
small  disturbance  theory  in  order  to  properly  simulate  swept  shock  waves.  The 
first  modifications  were  proposed  by  Lomax  (Reference  2),  et  al.  and  it  is 
this  particular  equation  which  has  been  implemented  in  the  baseline  inviscid 
code  described  in  this  volume.  This  inviscid  code  is  also  the  only  available 
method  which  can,  at  present,  simulate  relatively  general  fuselage  configura- 
tions routinely.  The  code  makes  use  of  the  embedded  grid  scheme  developed  by 
boppe  (Reference  3)  in  order  to  reduce  the  execution  time  and  storage  require- 
ments, while  retaining  maximum  accuracy  on  the  surface. 

Viscous  effects  are  investigated  and  accounted  for  in  the  present  method 
through  two  different  approaches.  Th>  full  viscous-inviscid  iteration  is 
carried  out  assuming  a boundary  layer  o the  infinite  swept  wing  type  at  each 
span  station,  augmented  by  local  treatm<  of  the  strong  interaction  regions 
at  the  3hock  foot  and  trailing  edge,  and  snallow  separations.  In  addition  to 
this  calculation,  an  entirely  new  program  has  been  written  by  Nash  and  Scruggs 
(Volume  III  of  this  report)  to  compute  the  fully  three-dimensional  laminar  and/ 
or  turbulent  boundary  layer  on  finite  wings.  This  program  is  not  fully  coupled 
with  the  inviscid  calculation,  however,  the  inviscid/strip  viscous  program  will 
automatically  produce  the  input  data  set  for  the  3-D  B.  L.  program.  The  result- 
ing 3-D  boundary  layer  prediction  is  then  tabulated  in  a form  that  allows  for 
the  generation  of  a data  deck  that  could  be  used  to  make  a fully  3-D  correction 
to  the  actual  airfoil  ordinates. 

The  present  method  is  described  in  a three  volume  report.  Volume  I 
describes  the  theoretical  foundation  of  the  various  elements  of  the  method  and 
how  they  are  combined  into  a single  computer  program.  No  attempt  is  made  to 
repeat  the  excellent  and  detailed  theoretical  descriptions  contained  in  the 
references.  Instead,  the  volume  concentrates  on  providing  the  user  with  a 
practical  overview  of  the  methods  and  a working  knowledge  of  the  aspects  of 
the  methods  which  the  user  can  control  and  which  are  sometimes  difficult  to 
discover  from  the  theoretical  papers.  Volume  I also  contains  a large  number 
of  examples  of  the  application  of  the  program  to  a complete  range  of  aircraft 
configurations.  These  include  correlations  on  the  F-8  and  TACT  aircraft.  The 
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volume  concludes  with  some  observations  on  the  general  integration  of  computa- 
tional aerodynamic  tools  into  a uniform  system  with  common  input  and  output 
sets,  and  an  examination  of  the  potential  applications  to  the  design  problem 
using  the  present  analysis  program  as  a baseline  method.  The  present  volume 
contains  the  detailed  instructions  required  for  program  operation,  including 
a review  of  the  output  results  and  the  associated  notation/ definition.  This 
section  al  so  contains  a sample  case  which  should  provide  a complete  illustra- 
tion of  the  use  of  the  program.  The  second  part  of  this  volume  contains  a 
description  of  the  actual  computer  program  in  sufficient  detail  so  that  a user 
can  learn  the  code  well  enough  to  make  modifications.  The  three-dimensional 
boundary  layer  method  is  treated  as  an  independent  program  and  is  entirely 
described  in  Volume  III.  That  volume  contains  both  the  theoretical  oiescrip- 
tion  and  the  user's  manual  and  code  description. 


2.  PROGRAM  LIMITS  AND  COMPUTATIONAL  COST 

The  requirement  for  handling  most  cases  of  interest  without  demanding 
excessive  storage  and  running  time  leads  to  some  compromises  in  the  size  of 
the  dimension  statements.  As  delivered,  the  program  is  dimensioned  to  handle 
the  typical  body  and  airfoil  definition  required  for  transonic  flow  calcula- 
tions. The  computational  meshes  are  dimensioned  to  the  size  found  sufficient 
for  most  cases,  with  the  exception  of  the  inner  X-mesh  which  is  dimensioned  to 
90  streamwise  points,  although  most  of  the  calculations  employ  from  60  to  70 
streamwlse  points.  All  other  grid  dimensions  are  fully  utilized  during  each 
execution.  The  additional  X-mesh  dimensions  allow  for  the  occasional  calcula- 
tion of  special  cases  with  Increased  streamwise  resolution.  The  resulting 
code  requires  approximately  1400K  of  core  storage  on  HIM  systems  or  1(>0K  octal 
..mall  core,  YHUk  octal  level  2 largo  core  memory  on  CDC  systems.  This  size 
is  probably  close  to  an  upper  limit  for  making  routine  calculations  at  most 
computer  centers.  Reducing  the  size  of  (.lie  program  substantially  would  lead 
to  a reduction  In  the  accuracy  of  the  calculation.  The  present  code  represents 
a good  compromise  between  code  size  and  accuracy. 

Table  l presents  the  various  limits  that  are  built  into  the  program. 

Most  of  these  limits  could  be  changed  by  simply  adjusting  the  dimension  state- 
ments, however,  almost  three  years  of  experience  indicates  that  the  present 
limits  are  adequate.  Typical  mesh  sizes  produced  by  the  automated  grids  gener- 


ation  routines  are: 

Mesh 

X 

Y 

Z 

Total  No.  of  Points 

Initial 

ho 

20 

20 

16,000 

Kxterior  Crude 

30 

18 

20 

10,800 

Interior  Pine 

59 

30 

20 

35,400 

Our  experience  with  this  code  on  a 01X1  7(>00  computer  indicates  that  the 
various  portions  of  the  solution  can  be  expected  to  take  the  following  CPU 
times  (on  the  76OO)  with  the  meshes  Internally  generated  by  the  program. 
Calculation  CPU  Time 

1 initial  grid  iteration  0.71  sec 

1 coarse/t’lne  grid  iteration  1.72  sec 

1 viscous  Herat. Ion  at.  a 

single  span  station  3.80  sec 
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Thu*,  the  total  computational  time  can  be  approximated  by  multiplying  the  CPU 
time  for  each  step  by  the  total  number  of  iterations  performed.  Summing  these 
values  for  each  step  will  yield  the  approximate  CPU  time  required  on  a CDC 
7600  computer. 

In  running  this  code  on  the  Ames  CDC  7o00,  Grumman  1PM  370/lbP  and  ASP 
I PM  370/155*  we  have  found  that  the  following  relationship  holds  for  the  amount 
of  CPU  time  required  (taking  the  Ames  7600  as  the  baseline): 

Ames  CDC  7b 00  Grumman  1PM  370/ 168  ASP  1PM  370/1') s 

1 5 30 

Thus,  computations  performed  on  an  1PM  370/155  can  be  expected  to  take 
approx imately  30  times  as  much  CPU  time  as  the  identical  calculation  performed 
on  a CDC  7600  computer  The  CPU  times  listed  above,  together  with  the  factors 
shown  above,  can  be  used  to  provide  an  estimate  of  the  CPU  time  required  to 
run  this  code  on  a machine  similar  to  any  of  the  three  machines  listed.  Approx- 
imate time  required  for  different  sir.e  grid  calculations  can  be  computed  by 
determining  the  time  required  per  mesh  point  per  iteration,  which  then  serves 
as  a basis  for  computing  the  time  required  for  arbitrary  grid  sir.es.  A typical 
inviscid  solution  would  require  about  100  initial  mesh  and  400  fine/crude  iter- 
ation pairs  in  order  to  obtain  a converged  solution,  with  a typical  computing 
time  of  750  seconds  on  a CDC  7600. 

The  viscous  solution  can  be  expected  to  take  about  one  aui  a half  to  two 
times  the  number  of  inviscid  iterations,  with  four  or  five  boundary  layer  cal- 
culations required. 

In  contrast  to  the  standard  linear  aerodynamics  program*  for  which  the 
running  times  can  be  predicted  quite  accurately,  the  present  method  employs 
non-linear  techniques  for  which  the  running  time  is  difficult  to  predict.  The 
numerical  procedure  requires  an  iterative  solution  which  converges  quite  slowly 
to  the  final  value.  Figure  1 provides  an  example  of  the  way  in  which  the  sur- 
face pressure  distributions  approach  the  final  value,  which  is  taken  here  to 
be  the  value  at  400  iterations.  Although  the  figure  is  representative,  the 
actual  convergence  rate  will  vary  between  configurations  and.  for  the  same 
configuration,  the  convergence  will  change  with  Mach  number,  angle-of-attack 
and  mesh.  Typically,  a solution  can  be  considered  converged  when  the  lift,  and 
number  of  supersonic  points  are  remaining  relatively  constant  at  each  iteration. 
Tire  maximum  error  ami  residual  should  also  be  small.  The  maximum  error  Is  the 
maximum  change  of  the  potential  between  Iterations,  while  the  residual  is  the 


value  of  the  summation  of  all  the  terms  in  the  governing  equation  (which  should 
be  identically  zero).  Traditionally,  the  program  terminates  when  the  maximum 
error  is  smaller  than  the  prescribed  convergence  criterion  (normally  10”'>), 

The  maximum  residual  should  also  be  inspected  in  order  to  verify  that  it  has 
been  reduced  by  about  3 orders  of  magnitude  from  its  original  value  during 
the  iteration.  .Some  experimentation  on  the  part  of  the  user  should  verify 
that  a "typical"  converged  solution  can  be  obtained  by  running  about  100  itera- 
tions on  an  initial  mesh  and  another  300  or  400  iterations  on  the  fine/crude 
embedded  mesh  system. 

Figure  2 shows  the  maximum  error,  e,  obtained  after  220  iterations  for 
two  different  configurations  at  various  Mach  numbers  and  angles-of-attack. 

The  main  result  that  can  be  seen  in  these  figures  is  that  each  case  is  slightly 
different  and  no  consistent  trend  can  be  observed. 

Figure  3 shows  how  the  number  of  iterations  required  to  obtain  a specified 
convergence  level  varies  with  the  relaxation  factor  u).  To  repeat,  the  specific 
results  shown  on  this  figure  will  vary  with  configuration,  Mach  number,  angle- 
of -attack  and  the  particular  mesh.  Nevertheless,  we  show  this  result  to  indi- 
cate that  the  default  values  of  the  relaxation  parameters  are  not  necessarily 
optimum  for  a particular  case.  If  an  extreme  amount  of  running  at  a design 
point  is  planned,  some  experimentation  with  uo  may  be  worthwhile,  along  with 
the  use  of  a baseline  saved  solution. 

The  convergence  history  presented  in  Figure  1 is  very  similar  to  the  con- 
vergence history  of  a slowly  converging  series.  It  is  very  tempting  to  attempt 
to  accelerate  the  convergence  of  the  solution  by  applying  the  large  body  of 
mathematical  anelysis  devoted  to  that  problem.  Indeed.  Hafez  and  Cheng  (Refer- 
ence 4)  have  done  this  with  some  success,  however,  attempts  to  employ  this 
type  of  strategy  during  the  solution  process  in  the  present  program  has  led  to 
uneven  results,  where  the  technique  has  only  occasionally  improved  the  conver- 
gence properties.  Due  to  the  additional  size  and  complexity  of  the  code  re- 
quired to  include  this  option,  along  with  the  generally  disappointing  results 
obtained  during  the  experimentation,  this  option  is  not  included  in  the  final 
code.  However,  should  a reliable  acceleration  technique  become  available,  the 
code  can  be  modified  to  incorporate  this  type  of  capability  without  any  parti- 
cular difficulty. 
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TABLE  I 


GEOMETRY 


SUMMARY  OF  PROGRAM  LIMITS 


Maximum 


Airfoil  Sections 
Airfoil  Ordinates/ Section 
Wing  Twist  Locations 
L.E.  Planform  Pairs 
T.E.  Planform  Pairs 
BODY  DEFINITION 


11 

90  upper/90  lower 
11 
10 
10 


Slope  Input  (IBODIN  = F) 

Streamwise  Slopes 

90 

Top  and  Bottom  Span  Locations 

10  each 

Side  Wall  Locations 

20 

Body  Line  Input  (IBODIN  = T) 

Upper  Center  Line 

90 

Lower  Center  Line 

90 

Y - Max -Half  Breadth  Line 

90 

Z - Max-Half  Breadth  Line 

90 

SOLUTION 

Number  of  span  stations  at  which  solution  is  computed 

29 

Number  of  inviscid  points  on  chord  (IVISC  = F) 

60 

(IVISC  = T) 

50 

Viscous/ Inviscid  Iterations 

20 

Number  of  Inviscid  fine/crude  iteration  pairs 

1000 

MAPPING 

Number  of  segments 

12 

Number  of  points  allowed  to  define  each  segment 

10 

MESHES 

X 

Y 

Exterior  Crude  Mesh 

30 

20 

Initial  and  Interior  Mesh 

90 

30 

NUMBER  OF  ITERATIONS 


L. 


240 

220 

200 

180 

160 

140 

120 

100 

80 

60 

40 

20 

0 
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Figure  3 Variation  of  the  Number  of  Iterations  Required 
To  Obtain  Different  Convergence  Levels  With 
Hie  Relaxation  Factor  u> 
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A-L 


3.  INPUT  PROCEDURE 


a.  General 

The  information  is  input  to  the  program  by  cards  and  tapes  or  disk.  The 
cards  contain  the  basic  program  control,  geometric  and  flight  data.  The  tape 
or  disk  input  is  optional  and  contains  the  results  of  a previous  solution. 

The  old  solution  is  used  for  a starting  value  for  a new  run  in  a manner  similar 
(but  not  exactly  analogous)  to  the  practice  of  using  a saved  AIC  matrix  in 
panel  method  programs.  The  card  input  is  very  basic,  with  a NAMELIST  option 
being  used  for  the  basic  information,  and  a distinct  block  of  data  for  each 
geometric  feature,  such  as  the  planform,  airfoils,  and  the  body.  The  airfoil 
and  body  information  can  be  input  in  a variety  of  methods,  so  that  data  decks 
based  on  the  original  Bailey-Ballhaus  Code  input  format  are  not  totally  obso- 
lete, while  the  new  input  format  allows  for  increased  flexibility.  This  flexi- 
bility was  added  in  response  to  requirements  on  actual  aircraft  cases.  Note 
that  the  NAMELIST  symbols  are  different  on  IBM  and  CDC  machines,  so  that  two 
cards  have  to  be  changed  when  going  from  one  machine  to  the  other.  The  first 
five  blocks  of  input  data  are  for  general  use.  A sixth  block  of  input  data 
allows  the  more  experienced  user  to  input  other  computational  grids  and  mappings. 
A seventh  block  of  input  describes  additional  parameters  in  the  NAMELIST  which 
allow  for  further  adjustments  in  the  generated  grids  and  the  viscous-inviscid 
iteration  procedure,  as  well  as  controls  that  are  passed  through  the  program 
and  included  in  the  input  set  for  the  Nash-Scruggs  3-D  Boundary  Layer  Program. 

The  viscous-inviscid  iteration  requires  a dual  control  approach,  wherein 
the  maximum  number  of  iterations  specified  is  performed  between  each  boundary 
layer  calculation.  Thus,  while  an  inviscid  calculation  might  require  500  iter- 
ations maximum,  FMAXIT,  the  appropriate  viscous  calculation  would  typically  be 
carried  out  by  specifying  70  inviscid  iterations  maximum,  FMAXIT,  and  7 viscous- 
inviscid  iterations  maximum,  FIVSMX,  so  that  the  maximum  number  of  inviscid 
iterations  will  be  (FMAXIT)  X (FIVSMX +l)  = 560.  The  calculation  always  starts 
with  the  inviscid  iteration,  even  when  starting  from  a previously  saved  solution. 
A viscous  solution  terminates  when  either  the  viscous  convergence  criterion  has 
been  satisfied,  or  the  maximum  number  of  viscous-inviscid  iterations  has  been 
exceeded.  When  performing  a viscous  calculation,  the  inviscid  convergence 
criterion  will  terminate  the  inviscid  iteration  when  it  is  satisfied,  but  it 
will  not  terminate  the  rest  of  the  calculation.  The  program  terminates  with  a 
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summary  of  the  viscous  iteration  history  whether  the  solution  has  fully  con- 
verged or  not. 

The  Murman  model  of  Shock  Boundary  Layer  interaction  is  exercised  directly 
from  the  inviscid  iteration  and  can  be  included  independently  at  the  rest  of 
the  viscous  effects.  It  is  best  operated  from  a previous  solution,  or  at  least 
after  a number  of  iterations  have  been  made  in  order  to  establish  the  character 
of  the  solution. 

It  is  highly-  recommended  that  the  graphics  package  be  employed  and  that 
an  initial  run  with  a new  data  set  be  limited  to  5 cycles,  after  which  both 
the  print  and  plot  output  should  be  scrutinized  in  order  to  verify  that  the 
desired  geometric  case  is,  in  fact,  being  simulated  by  the  program.  Once  the 
data  set  is  verified,  the  full  runs  can  be  submitted  with  confidence. 

For  some  wing-body  combinations,  a small  wiggle  can  develop  in  the  solu- 
tion near  the  leading  edge  of  the  wing  at  the  root  station.  This  is  due  to 
the  irregular  manner  in  which  the  bending  mesh  intersects  the  leading  edge. 

The  problem  can  be  resolved  without  inputting  the  entire  mesh  externally  by 
adjusting  the  fine  mesh  generating  parameters  described  in  the  next  section. 

The  proper  adjustment  has  been  found  to  be  to  add  more  mesh  points  upstream 
of  the  leading  edge,  while  also  increasing  the  extent  of  the  mesh  upstream. 

Finally,  we  note  that  the  default  mesh  will  produce  an  accurate  inviscid 
solution.  Although  computing  time  can  be  reduced  by  overriding  the  default 
values  and  reducing  the  mesh  density,  the  decrease  in  computing  time  will  be 
accompanied  by  a decrease  in  the  accuracy  of  the  solution  and  extreme  caution 
should  be  used  if  this  approach  is  adopted. 

b.  Description  of  Input  Data 

r, RUMMAN- AMES  TRANSONIC  VISCOUS  WING-BODY  CODE 
The  input  data  is  contained  in  7 basic  blocks  plus  a title  card.  All 
numerical  input  is  entered  in  F10  Format.  Provision  is  made  for  additional 
input  that  overrides  the  internally  generated  meshes  and  mapping.  The  input 
stream  occurs  as  follows: 
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GRUMMAN -AMES  TRANSONIC  VISCOUS  WING -BODY  CODE 


Block 

TITLE  CARD 

1 CONTROL  BLOCK 

2 FLIGHT  CONDITIONS 

3 FLANFORM 

4 AIRFOIL 

5 BODY 


6 Optional  Mesh  & Mapping  Inputs 

7 Additional  control  parameters 

Block  1 - Control  Block 

The  parameters  controlling  the  various  options  in  the  code  have  Been  pre- 
set to  default  values  to  streamline  the  input.  The  default  values  reflect  a 
"baseline"  computation  which  has  been  found  through  experience  to  be  generally 
satisfactory.  However,  some  values  of  the  control  parameters  must  be  overridden 
to  accomplish  specific  tasks. 

The  control  parameters  in  this  block  are  input  using  NAMELIST*.  Only  those 
parameters  that  are  to  be  changed  from  the  default  values  need  be  read  in.  The 
NAMELIST  variables,  with  default  values  shown  in  parenthesis,  are  listed  below: 

* NAMELIST 

Variable  Default  Remarks 

IDISK  (F)  T - start  from  old  solution  stored  on 

unit  10. 

F - initialize  potential  field  to  zero. 

\ MSHINT  (F)  T - initial  conditions  interpolated  from 

old  coarse  mesh  solution. 

F - no  interpolation. 


* Input  data  using  NAMELIST  must  satisfy  the  following  rules: 

1.  The  first  column  on  each  card  must  be  blank. 

2.  The  first  item  must  be  the  NAMELIST  name  preceded  by  a &;  i.e.,  &LIST 
followed  by  a blank. 

3.  Data  is  input  in  the  form  variable  = constant , each  item  being  separated 
by  commas;  i.e.,  IDISK  = T,RSUB=1.8, . . . 

4.  The  last  item  must  be  &END. 

5.  The  & above  is  for  IBM;  on  CDC,  the  character  is  $. 
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Combined  in  single  NAMELIST 


NAMELIST 

Variable 

I SAVE 

I PLOT 

SOLV 

WBCPRT 

BBCPRT 

BODY 

FOR 

ISPAN 

YAW 

EXTMSH 

REMESH 

IFINR 

ICRUDR 

JMESHR 

IMAPR 


Default 

(F) 

(T) 

(T) 

(T) 

(T) 

(F) 

(T) 

(T) 

(F) 

(T) 

(T) 

(F) 

(F) 

(F) 

(F) 


Remarks 


T - save  solution  on  unit  11. 

F - do  not  save  solution. 

T - save  data  for  plotting  on  unit  12. 

F - do  not  save  plot  data. 

T - complete  calculation. 

F - stop  after  geometry  modeling. 

T - print  wing  surface  slopes. 

F - omit  print. 

T - print  body  boundary  conditions. 

F - omit  print. 

T - wing-body  combination. 

F - wing  alone. 

T - fully  conservative  differencing. 

F - non-conservative  differencing. 

T - include  extra  sweep  terms  in  small 
disturbance  equation. 

F - solve  classical  small  disturbance 
equation. 

T - two-dimensional  yawed  wing. 

F - three-dimensional  configuration. 

T - use  both  fine  interior  and  crude 
exterior  grids. 

F - use  fine  interior  grid  only. 

T - initial  calculation  on  crude  interior 
grid  before  calculation  defined  by 
EXTMSH. 

F - no  initial  calculation. 

T - read  in  fine  XIN,  ETA  and  ZT  grids. 

F - use  internally  generated  fine  grids. 

T - read  in  crude  XIN,  ETA  and  ZT  grids. 

F - use  internally  generated  crude  grids. 

T - read  in  initial  XIN,  ETA  and  ZT  grids 
(if  REMESH  = T). 

F - use  internally  generated  initial  grids. 

T - read  in  mapping  of  fine  grid  f=0  and 
|=1  lines. 

F - use  internally  generated  mapping. 
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NAMELIST 

Variable 

Default 

Remarks 

JMAPR 

(F) 

T - read  in  mapping  of  initial  grid 

5=0  and  5=1  lines. 

F - use  internally  generated  mapping. 

I BUMP 

(F) 

T - invoke  Mur  .nan  model  for  SBLI. 

F - no  Mur man  Bump. 

IVISC 

(F) 

T - do  a viscous  interaction  calculation. 

F - inviscid  calculation. 

I TWIST 

(F) 

T - read  in  separate  twist  table. 

F - twist  defined  at  airfoil  input  stations. 

IFOILT 

(T) 

T - airfoil  input  consists  of  one  (X,Y) 
pair  per  card. 

F - airfoil  input  consists  of  blocks  of 

X’s  and  Y’s  (old  Ames  input  format). 

IBODIN 

(T) 

T - simplified  body  input  - automatic 
slopes. 

F - input  detailed  body  slopes. 

• 

AXISYM 

(F) 

T - axisymmetric  body  (only  if  IBOBIN=T). 

F - non-axisymmetric  body. 

ft 

AREA 

(F) 

T - Z body  coordinates  are  areas  rather 
than  Z’s. 

F - Z body  coordinates  are  Z’s. 

• 

IBLOUT 

(F) 

T - generate  punched  output  for  Nash  B.L. 
code. 

F - no  punched  output. 

% 

FMAXIT 

(500.) 

Maximum  number  of  iterations  on  interior 
grid. 

* 

FMXITN 

(1.) 

Number  of  fine  interior  grid  iterations 
before  crude  exterior  grid. 

FMXITX 

(1.) 

Number  of  crude  exterior  grid  iterations 
before  fine  interior  grid. 

A 

FMXITI 

(100.) 

Maximum  number  of  iterations  on  the 
initial  grid. 

FINCR 

(1.) 

Print  increment  for  fine  grid  iterations. 

FINCRX 

(1.) 

Print  increment  for  crude  grid  iterations. 

FINCRI 

(1.) 

Print  increment  for  initial  grid  iterations. 

15 


I 


NAMELIST 

Variable 

Default 

Remarks 

RSUB 

(1.7) 

Subsonic  relaxation  factor  for  fine 
interior  grid. 

R3UBX 

(1.6) 

Subsonic  relaxation  factor  for  crude 
exterior  grid. 

RSUBI 

(1.6) 

Subsonic  relaxation  factor  for  initial 
grid. 

RTEST 

(.00001) 

Convergence  criterion  for  maximum  potential 
error  on  fine  interior  grid. 

RTESTI 

(.0001) 

Convergence  criterion  for  maximum  potential 
error  on  initial  grid. 

EPS 

(1.) 

Coefficient  for  4 damping  for  fine  grid. 

EPSEX 

(1.) 

Coefficient  for  damping  for  crude  grid. 

EPS  I 

(1.) 

Coefficient  for  & . damping  for  initial 
grid.  X 

EMEXF(l) 

(1.75) 

Mach  number  exponent  in  nonlinear  term 
(1.75  corresponds  to  modified  Krupp 
scaling) . 

EMEXP(2) 

(-.25) 

Mach  number  exponent  in  wing  boundary 
conditions  (-.2R  corresponds  to  modified 

Krupp  scaling). 

RFACT 

(0.) 

Siegel's  Rule  factor  for  modified  wing 
slopes. 

fivsm>: 

(-1.) 

Maximum  number  of  viscous  inviscid  iter- 
ations, values  less  than  zero  do  not 
modify  the  wing  slope  boundary  conditions. 

FIVCON 

(2.) 

Viscous  inviscid  interaction  convergence 
criteria,  FIVCON  = 1 tests  for  convergence  i 

on  Op  change.  FIVCON  = 2 tests  for  conver- 
gence on  lift. 

EPSVIS 

(.01) 

Convergence  criterion  for  viscous  inviscid 

iteration.  j 

FLWRIT 

(0.) 

Viscous  iteration  output 

=0.  Normal  Output 
=1.  Abbreviated  Output 
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NAMELIST 

Variable 

FIOUTP 


FISTEP 


Default 

(0.) 


(10.) 


Remarks 

Type  of  strip  boundary  layer  output, 
FIOUTP  =*  0 is  the  minimum  amount, 

= 1 provides  detailed  chordwise  distri- 
butions, = 2 provides  boundary  layer 
profiles  also. 

B.L.  steps  between  b.l.  profile  outputs 
if  FIOUTP  = 2. 


Block  2 - Flight  Conditions 


This 
tained  in 

NAMELIST 

Variable 

MACHNO 

ALPHAW 


ALPHAB 


input  set  continues  in  the  same  NAMELIST  as  Block  1.  Variables  con- 
this  block  are  (default  values  in  parenthesis): 


GAMMA 


XTRNT 


XTRNB 


Default 


(0.°) 


Remarks 

Free stream  Mach  number. 

Wing  angle-of-attack  relative  to  the 
freestream  velocity  in  degrees. 

Body  angle-of-attack  relative  to  the 
freestream  velocity  in  degrees. 

Reynolds  number '101'  based  on  mean  aero- 
dynamic chord. 

Ratio  of  specific  heats. 

Boundary  layer  transition  location  on 
upper  surface  --  fraction  of  local  chord. 

Boundary  layer  transition  location  on 
lower  surface  --  fraction  of  local  chord. 


i 


ni 

■ 

'♦ 

l 

' 

| 

i 


’ V -'7  ’ 


Block  3 - Planform  Specification 

(If  the  yawed  wing  option  is  requested,  use  the  yawed  wing  input.) 
FINITE  WING  INPUT 


Card  # 

Format 

Field 

Name 

Remarks 

PI 

Literal 

PTITLE 

80  characters  describing 
wing  definition. 

P2 

8F10.0 

1 

YR00T=0 

Y-coord.  of  root  for  reference 
trapezoidal  wing  (RTW). 

2 

XLER 

X-coord.  of  leading  edge  at 
root  for  RTW. 

3 

XTER 

X-coord.  of  trailing  edge  at 
root  for  RTW. 

k 

YTIP 

Y-coord.  of  tip  for  RTW. 

5 

XLET 

X-coord.  of  leading  edge  at 
tip  for  RTW. 

6 

XTET 

X-coord.  of  trailing  edge  at 
tip  for  RTW. 

7 

XMOM 

Moment  reference. 

8 

SREF 

Wing  half -reference  area  — if 
0.,  code  calculates  SREF  for 
RTW. 

P3 

Literal 

PTITLE 

80  characters  describing 
LEADING  EDGE. 

p4 

8F10.0 

1 

XNLE 

Number  of  X,  Y pairs  used  to 
define  L.E. 

P5 

8F10.0 

1 

YLEI(I) 

Y-coord.  of  L.E. 

2 

XLEI(I) 

X-coord.  of  L.E.  at  this  Y. 

NOTE: 

Card  P5  is  read 

XNLE  times. 

P6 

Literal 

PTITLE 

80  characters  describing  T.E. 

P7 

8F10.0 

1 

XNTE 

Number  of  X,  Y pairs  used  to 
define  T.E. 

j. 
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Card  # 

Format  Field 

Name 

Remarks 

P8 

8F10.0  1 

YTEI(I) 

Y-coord.  of  T.E. 

2 

NOTE:  Card  P8  is  read  XNTE  times. 

INFINITE  YAWED  WING  OPTION 

XTEI(I) 

X-coord.  of  T.E.  at  thi, 

PI 

Literal 

PTITLE 

80  character  title. 

P2 

8F10.0  1 

SWEEP 

Sweep  angle  of  Infinite 
Yawed  Wing  in  degrees. 

20 
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Block  4 - Airfoil  Specification 
INPUT  FORMAT 


1.  Default  Option,  IFOILT  - T (if  IFOILT  - F,  skip  to  INPUT  FORMAT  2.). 


Card  # 

Format 

Field 

Name 

Remarks 

A1 

Literal 

ATITLE 

80  characters  describing  wing 
definition. 

A2 

8F10.0 

1 

XNPAN 

Number  of  spanwise  stations 
required  to  define  wing 
geometry  (PsOCNPANsdl). 

NOTE: 

Cards  A3-A9 

are  repeated  XNrAN 

times. 

A3 

Literal 

ATITLE 

80  characters  describing 
this  section. 

AU 

8F10.0 

1 

YP 

Spanwise  location  of  this 
section  - non-dimens ionali zed 
with  respect  to  semispan. 

2 

THETP 

Wing  twist  at  this  span  station 
(in  degrees). 

3 

THICK 

Thickness  scaling  for  this  span 
station;  i.e.,  1.0  implies  no 
change  to  coordinates. 

h 

XNWSEC 

=■1.0  - new  airfoil  coordinates 
for  this  span  station  will 
follow. 

=0.0  - the  coordinates  for 
this  span  station  are  the 
same  as  the  previous  station. 

NOTE: 

If  XNWSEC  » 

0,  go  back  to  card  A3  for  next 

span  station,  if  any. 

A5 

9F10.0 

1 

ZSYM 

=0.0  - asymmetric  section, 
upper  and  lower  surface  coor- 
dinates will  follow. 

=1.0  - symmetric  section, 
only  upper  surface  coordinates 
will  follow. 

2 

FNU 

Number  of  upper  surface 
coordinates. 

3 

FNL 

Number  of  lower  surface 
coordinates. 

* ' 

k 

XKSMTH 

Number  of  coordinate  smoothings 

to  be  performed. 
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Card  # 

Format 

Field 

Name 

Remarks 

A6 

Literal 

ATITLE 

80  characters  - typically 
upper  surface. 

A7 

8F10.0 

1 

XU 

Upper  surface  X coordinate 
in  any  convenient  coordinate 
system. 

NOTE: 

Repeat  card  A7 
If  ZSYM  = 1.0, 

2 

FNU  times, 
go  back  to 

ZU 

card  A3  for  next 

Upper  surface  Z coordinate 
in  same  coordinate  system 
as  X. 

span  station,  if  any. 

A8 

Literal 

ATITLE 

80  characters  - typically 
lower  surface. 

A9 

8F10.0 

1 

XL 

Lower  surface  X coordinates 
in  same  coordinate  system  as 
cards  A7. 

2 

ZL 

Lower  surface  Z - coordinate 
in  same  coordinate  system  as 
cards  A7. 

NOTE: 

Repeat  Card  A9  FNL  times. 

Go  back  to  card  A3  for  next  span  station. 

if  any. 

Airfoil  coordinates  run  from  leading  edge  to  trailing  edge. 

The  leading  edge  point  is  input  twice  for  asymmetric  airfoils. 

If  IFOILT=  T,  skip  Input  Format  2. 

INPUT  FORMAT 

2.  Original  Bailey-Ballhaus  airfoil  input  format,  IFOILT  = F. 


A1 

Literal 

ATITLE 

80  characters  describing 
airfoil  section. 

A2 

8F10.0 

1 

XNPAN 

Number  of  span  stations  at 
which  airfoil  ordinates  are 
input  (2.5XNPANS11.). 

2 

FNU 

Number  of  upper  surface 
ordinates  ^ 90- 

3 

FNL 

Number  of  lower  surface 
ordinates  £ 90* 

4 

XKSMTH 

Number  of  times  surface 

slopes  are  smoothed. 
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Card  # 

Format  Field 

Name 

Remarks 

A3 

8F10.0  1,3, 5, 7 

YP(N) 

Fraction  of  semispan  at  which 
uirfoils  are  defined. 

2, 4, 6, 8 

THETP(N) 

Twist  angle  at  YP,  in  degrees 
(positive  is  LE  up). 

NOTE: 

Card  A3  is  repeated  XNPAN  '4 

. times. 

A4 

8F10.0  1,2,... 8 

XINU(l) 

x'c  at  which  airfoil  upper 
surface  ordinates  are  input. 

NOTE: 

Card  A4  is  repeated  FNU'8. 

times. 

A5 

8F10.0  1,2,... 8 

XINL(T) 

x'c  at  which  airfoil  lower 
surface  ordinates  are  input. 

NOTE: 

Card  A 5 is  repeated  FNL'8. 

times. 

A6 

L5  1 

ISAME 

F - input  airfoil  ordinates. 

T - use  previously  defined 
airfoil. 

NOTE: 

If  ISAME  = T,  omit  cards  A7 

and  A8. 

A7 

8F10.0  1,2,... 8 

ZUP(I,N) 

z/c  for  airfoil  upper  surface 

NOTE: 

Card  A7  is  repeated  FNU/8. 

times. 

A8 

8F10.0  1,2,... 8 

ZLP(I,N) 

z'c  for  airfoil  lower  surface 

NOTE: 

Card  A8  is  repeated  FNL'8.  times. 

ISAME  must  be  false  at  first  span  station. 
Cards  A6-A8  are  repeated  XNPAN  times. 

SEPARATE  TWIST  TABLE  INPUT  OPTION 

If  a separate  table  of  twists  is  requested,  the  twists  input  on  the  airfoil 
specification  cards  are  ignored  and  the  following  input  is  required: 

T1 

Literal 

TTITLE 

80  character  title. 

T2 

8F10.0  1 

XNTWST 

The  number  of  span  stations 
at  which  the  twist  is  input 
( 3 ‘ -XNTWST ^»ll) . 

T3 

8F10.0  1 

YTWST 

The  y C span  station  at  which 
the  twist  is  given  (must  be 
monotonically  increasing). 

2 

THETP 

The  twist  angle  at  YTWST  in 
degrees.  Nose-up  is  positive 
twist. 

NOTE:  Card  T3  is  repeated  XNTWST  times. 
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Block  3 - Body  Specification 
INPUT  FORMAT 


1.  Default  Option,  Body  Lines 
Format  2 . ) . 

Input,  IBODIN  = T 

(if  IBODIN  = F,  skip  to  Input 

Card  # 

Format  Field 

Name 

Remarks 

B1 

Literal 

BTITLE 

80  characters  describing 
fuselage  shape. 

B2 

SF10.0  1 

ZWNGWL 

Z location  of  wing  plane. 

B3 

Literal 

BTITLE 

80  characters,  typically 
upper  center  line. 

B4 

8F10.0  1 

FNUCL 

Number  of  fuselage  stations 
to  define  upper  center  line 

£ 90. 

B5 

8F10.0  1 

XUCL(I) 

Fuselage  station. 

2 

ZUCL(I) 

Z coordinate  of  body  upper 
center  line. 

NOTE: 

Card  B5  is  repeated  FNUCL  times. 

If  AXISYM=T,  skip  cards 
input  block. 

B6-B14;  i.e.,  the 

rest  of  the  cards  in  this 

If  AREA=T  also,  ZUCL(l) 

above  is  body  area 

L « 

b6 

Literal 

BTITLE 

80  characters,  typically 
lower  center  line. 

B7 

8 F10 . 0 1 

FNLCL 

Number  of  fuselage  stations 
to  define  lower  center  line 
* 90. 

B8 

8F10.0  1 

XLCL(l) 

Fuselage  station. 

2 

ZLCL(l) 

Z coordinate  of  body  lower 
center  line. 

NOTE: 

Card  B8  is  repeated  FNLCL  times. 

B9 

Literal 

BTITLE 

80  characters,  typically 
max  half-bredth  line  in  X-Z 

plane . 


BIO  8F10.0  1 


FNMHB  Number  of  fuselage  stations 

to  define  max  half-bredth 
line  in  X-Z  plane  £ 90. 
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Card  # 

Format 

Field 

Name 

Remarks 

Bll 

8F10.0 

1 

XZMHB(I) 

Fuselage  station. 

2 

ZMHB(I) 

Z coordinate  of  max  half- 
bredth  line. 

NOTE: 

Card  Bll  is  repeated  FNMHB  times 

• 

B12 

Literal 

BTITLE 

80  characters,  typically 
max  half-bredth  line  in 

X-Z  plane. 

B13 

8F10.0 

1 

FMHBY 

Number  of  fuselage  stations 
to  define  max  half-bredth 
line  in  X-Y  plane  £ 90. 

BlU 

8F10.0 

1 

XYMHB(I) 

Fuselage  station. 

2 

YMHB(I) 

Y coordinate  of  max  half- 
bredth  line. 

NOTE: 

Card  Bl4  is  repeated  FMHBY  times 

• 

If  I BOD IN  = T,  skip  Input  Format  2. 

INPUT  FORMAT 

2.  Body  Slope  Input, 

IBODIN  = F. 

B1 

Literal 

BTITLE 

80  characters  describing 
fuselage  shape. 

B2 

8F10.0 

1 

ZRBU 

Z location  of  top  of  BCSS 
(Boundary  Condition  Support 
Surface). 

2 

ZRBL 

Z location  of  bottom  of  BCSS 

3 

YRB 

Y location  of  side  of  BCSS. 

k 

ZWNGWL 

Z location  of  wing  plane. 

B3 

8F10.0 

1 

FNRBU 

Number  of  X stations  for 
slope  input  on  BCSS  upper 
surface  £ 90. 

bU 

8F10.0 

1,2, ...8 

XRBU(J) 

X stations. 

NOTE: 

Card  BU  related  FNRBU/8.  times. 
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Card  # 

Format 

Field 

Name 

Remarks 

B5 

8F10.0 

1 

FI  BUD 

Number  of  Y stations 
slope  input  on  BCSS 
surface  £ 10. 

for 

upper 

B6 

8F10.0 

1,2, ...8 

ETABU(K) 

Y stations. 

NOTE: 

Card  Bb  repeated  FIBUD/8.  times. 

B7 

8F10.0 

1,2, ...8 

RBCU(J,K) 

Slopes  on  BCSS  upper 

surface 

NOTE: 

Card  B7  is 

repeated  FNRBU/8.  times  for  each 

ETABU. 

b8 

8F10.0 

1 

FNRBL 

Number  of  X stations 
slope  input  on  BCSS 
surface  £ 90. 

for 

lower 

B9 

8 F10 . 0 

1,2, ...8 

XKBL(J) 

X stations. 

NOTE: 

Card  B9  is 

repeated  FNRBL/8.  times. 

E10 

8F10.0 

1 

FIBLD 

Number  of  Y stations 
slope  input  on  BCSS 
surface  £ 

for 

lower 

Bll 

8F10.0 

1,2, ...8 

ETABL(K) 

Y stations. 

NOTE: 

Card  311  is 

repeated  FIBLP/8.  times. 

B12 

8F10.0 

1,2, ...8 

RBCL(J,K) 

Slopes  on  BCSS  lower 

surface 

NOTE: 

Card  B12  is 

repeated  FNRBL/8.  times  for  each 

ETABL. 

B13 

8F10.0 

1 

FNRBS 

Number  of  X stations 
slope  input  on  BCSS 
£ 90. 

for 

side 

Bl4 

8F10.0 

1,2, ...8 

XRBS(J) 

X stations. 

NOTE: 

Card  BlU  repeated  FNKBS,  8.  times 

• 

B15 

8F10.0 

1 

FIBS 

Number  of  Z stations 
slope  input  on  BCSS  ; 
£ 10. 

for 

side 

Bib 

8F10.0 

1,2, ...8 

ZBOD(L) 

Z stations. 

NOTE: 

Card  Bl6  repeated  FIBS/8,  times. 

B17 

8F10.0 

1,2, ...8 

FY(J,L) 

Slopes  on  BCSS  side. 

NOTE:  Card  B17  repeated  FNRBS  8.  times  for  each  ZBOD. 
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The  mesh  and  mapping  inputs  are  input  last  in  the  following  order: 

Initial  Mesh  (Cards  F1-F5)  if,  and  only  if,  REMESH  = T,  JMESHR  = T 

Initial  Mapping  (Cards  M1-M8)  if,  and  only  if,  RUHESH  = T,  JMAPR  = T 

Interior  Mesh  (Cards  F1-F5)  if,  and  only  if,  IFINR  = T 

Interior  Mapping  (Cards  M1-M8 ) if,  and  only  if,  IMAFR  = T 

Exterior  Mesh  (Cards  C1-C5)  if,  and  only  if,  EXTMSH  = T,  ICRUPR  = T 

NOTE:  See  Section  c)  for  a discussion  of  the  construction  of  appropriate 
meshes  and  a description  of  the  internally  generated  meshes. 


Mesh  Parameters  For 

Initial  and 

Interior  Meshes 

Card  # 

Format 

Field 

Name 

Remarks 

FI 

Literal  1 

TITLfM 

80  characters  describing 
initial  or  interior  mesh. 

F2 

8F10.0 

1 

FJMAX 

Number  of  streamwise  mesh 
points  (^  90.). 

2 

fKMAX 

Number  of  spanwise  mesh 
points  (^  30.). 

3 

FLMAX 

Number  of  vertical  mesh 
points  (^  20.). 

4 

FKTIP 

First  mesh  point  beyond  wing 
tip. 

5 

FLWNGU 

ZT  mesh  index  of  first  point 
above  wing  plane. 

F3 

oFlO.O 

1,2, ...8 

XINi,J ) 

X mesh  along  center  line. 

NOTE: 

Card  F3  is 

repeated  FJMAX/8. 

times. 

F4 

8F10.0 

1,2,. ..8 

ETA(K) 

FTA  coordinate  at  mesh  point; 

NOTE: 

Card  FU  is 

repeated  FKMAX  8. 

times. 

F5 

8F10.0 

1,2, ...8 

zt(l) 

ZT  coordinate  at  mesh  points 

NOTE: 

Card  F5  is 

repeated  FLMAX  8. 

times. 
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Card  # 

Format 

Field 

Name 

Remarks 

Ml 

8F10.0 

1 

FNSO 

Number  of  segnents  defining 
XI  = 0 line;  FNSO  £ 6. 

M2 

8F10.0 

1 

FK.XO 

K index  of  outboard  edge  of 
segnent . 

2 

FNXO 

Number  of  Y,  X pairs  defin- 
ing segment;  FNXO  £ 10. 

M3 

8F10.0 

1,3, 5,7 

YXO 

Y,  X pairs  defining 

2,U,6,8 

XKO 

segment . 

NOTE: 

Card  M3  is 

repeated  FNXO/4. 

times. 

M4 

8F10.0 

1 

DXRO 

DX/DY  at  inboard  edge. 

2 

DXTO 

DX/DY  at  outboard  edge. 

NOTE: 

Cards  M2,  M3,  and  M4  are  repeated  FNSO  times. 

M5 

8F10.0 

1 

FNS1 

Number  of  segments  defining 
XI  = 1 line;  FNS1  ^ 6. 

M6 

8F10.0 

1 

FKX1 

K index  of  outboard  edge  of 
segment . 

2 

FNX1 

Number  of  Y,  X pairs  defin- 
ing segment;  FNX1  s.  10. 

M7 

8F10.0 

1,3, 5,7 

YX1 

Y,  X pairs  defining 

2, 4,6, 8 

XXI 

segment . 

NOTE: 

Card  M7  is 

repeated  FNX1 '4. 

times . 

MS 

8F10.0 

1 

DXR1 

DX/DY  at  inboard  edge. 

2 

DXT1 

DX/DY  at  outboard  edge. 

NOTE:  Cards  Mb,  M7  and  M8  are  repeated  FNS1  times. 
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Mesh  Parameters 

for  Exterior 

Mesh 

Card  # 

Format  Field 

Name 

Remarks 

Cl 

Literal  1 

TITLJM 

SO  characters  describing 
crude  mesh. 

C2 

8F10.0  1 

FJMAXX 

Number  of  streamwlse  mesh 
points  (s  30. ) . 

2 

FKMAXX 

Number  of  spanwise  mesh 
points  (a  20. ). 

3 

FLMAXX 

Number  of  vertical  mesh 
points  (s  20. ) . 

4 

FKTIPX 

First  ETAX  mesh  point  beyond 
vring  tip. 

5 

FLWGUX 

ZTX  mesh  index  of  first  point 
above  wing  plane. 

C3 

8F10.0  1,2,... 8 

XINX(J) 

X mesh  along  center  line. 

NOTE: 

Card  C3  is  repeated  FJMAXX/8. 

times. 

C4 

8F10.0  1,2, ...8 

ETAX(K) 

ETA  coordinate  at  mesh  points 

NOTE: 

Card  C4  is  repeated  FKMAXX/8. 

times. 

C5 

8F10.0  1,2,... 8 

ZT(L) 

2T  coordinate  at  mesh  points. 

NOTE: 

Card  C5  is  repeated  FLMAXX/8. 

times. 

Block  7 - Additional  Control  Parameters 


These  parameters  supply  additional  control  for  several  options.  For  most 


applications  of  the  code,  the  default 
values  may  he  overridden  by  using  the 

values  are  recommended.  The  default 

NAMELIST  described  for  Block  1. 

NAMELIST 

Variable 

Default 

Remarks 

Murman 

Bump  Parameters 

F 

(1.) 

Relaxation  factor  for  Murman  Bump  and 
controls  the  fraction  of  the  shock  move- 
ment allowed  for  the  bump  origin  between 
iterations . 

SHIFT 

(0. ) 

Percent  chord  shift  of  shock  location. 
Positive  upstream  allows  the  bump 
origin  to  be  located  slightly  upstream 
of  shock. 

FBSTRT 

(0.) 

Number  of  interior  mesh  iterations 
before  start  of  Murman  Bump. 

FBPRNT 

(0.) 

Number  of  interior  mesh  iterations 
between  additional  Murman  Bump  print- 
out, if  FBPRNT  =0.,  no  printout. 

Fine  Mesh  Parameters  - these  parameters  control  the  automatic  generation  of 
the  fine  interior  mesh  (IFINR  = F). 


DXL 

(.008) 

5 -mesh  spacing  at  leading  edge;  i.e., 
leading  edge  is  placed  at  DXL/2. 

DXT 

(.020) 

5 -mesh  spacing  at  trailing  edge;  i.e., 
trailing  edge  is  nominally  placed  at 

5 = l. 

DXMX 

(.030) 

Maximum  5 -mesh  spacing  on  the  wing. 

FNF 

(8.) 

Number  of  grid  lines  upstream  of 

5=0.  line. 

FNB 

(8.) 

Number  of  grid  lines  downstream  of 
the  5=1.  line. 

XDST 

(1.88) 

Overall  length  of  the  5 -mesh. 

XLG 

(.44) 

Upstream  extent  of  the  5 -mesh. 
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NAMELIST 

Variable 

Default 

Remarks 

FI0UT1 

(0.) 

= 0.,  no  general  mesh  generation  output. 

= 1.,  general  mesh  generation  output. 

FI OUTS 

(0.) 

=0.,  no  detailed  mesh  generation  output. 
=1.,  detailed  mesh  generation  output. 

Initial  Mesh  Parameters  - these  parameters  control  the  automatic  generation  of 
the  initial  mesh  (RIMESH  = T,  JMESHR  = F). 

DXLI 

(.020) 

§-mesh  spacing  at  leading  edge;  i.e., 
leading  edge  is  placed  at  DXLi/2. 

DXTI 

(.040) 

5 -mesh  spacing  at  trailing  edge;  i.e., 
trailing  edge  is  nominally  placed  at 

5 - I- 

DXMXI 

(.075) 

Maximum  ?-mesh  spacing  on  the  wing. 

FNFT 

(12.) 

Number  of  grid  lines  upstream  of 
? = 0.  line. 

FNBI 

(10.) 

Number  of  grid  lines  downstream  of 

1=1.  line. 

Xi)STI 

(11.) 

Overall  length  of  the  5 -mesh. 

XLGI 

(5.) 

Upstream  extent  of  the  §-mesh. 

FI0UT1 

(0.) 

(Must  be  the  same  as  interior  mesh.) 

FI0UT2 

(0.) 

(Must  be  the  same  as  interior  mesh.) 

Viscous  Iteration 

Parameters  (IVISC  = T) 

RELBL 

(.6) 

Relaxation  factor  for  the  modification 
of  the  slope  boundary  conditions  between 
inviscid  calculations. 

EXTNDU 

(0.97) 

The  fraction  of  the  chord  after  which 
the  boundary  layer  slope  on  the  upper 
surface  is  linearly  extrapolated  from 
its  value  and  rate  of  change  at  EXTNDU. 

EXTNDL 

(1.0) 

The  same  as  EXTNDU,  except  applied  to 

the  lower  surface.  For  supercritical 
airfoils,  no  extrapolation  is  necessary. 
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Pct'aul  1 Uemarhn 

(0. ) I1k>  inboard  Interaction  history  in 

printed  at  spmi  station  KK1 . It'  KK1 
0.  , t.he  history  la  printed  at  the  t'irut. 
span  station  outboard  of  Uie  root 
atat  Ion. 


KKO 

(0.  ) 

Same  as  l-’K  1 , but  for  outboard  stations. 

If  KKO  0.,  the  history  is  printed  at 
the  first,  span  station  Inboard  of  the 
tip  span  station. 

Naali  boundary  K‘iyer  Parameters  ( 1 IU.0UT  Ti 

NOTH;  bee  Volume  III  for  a complete  <leacr Ipt.lon  of  the  Input,  data  art  for 
the  t-U  boundary  Uayer  Program;  these  Inputs  are  provided  In  order  to 
exorcise  control  over  the  program  Indirectly,  so  that  the  t-U  b.b,  code 
can  he  exercised  sequent (ally  In  a multi  .-step  Job. 

FIT 

(10. ) 

Maximum  number  of  Iterations  allowed  In 
numerical  procedure  at  each  streamwlse 
row. 

FIOl'T 

(1.) 

Output  of  numerical  Iteration  history 
■ 0.  no  output 

1.  full  output. 

1'101’HK 

(1. ) 

ikitput  of  velocity  profiles  at  each 
s tat Ion 

0.  no  output 

1.  full  output. 

KIPNPII 

(0.  1 

0.  do  not  punch  output  for  plotting. 

1.  punch  output  for  plotting  on  unit  7. 

KKtfMTH 

10. 1 

Number  of  smoothings  of  input  pressure 
disl.ribut.lons  (if  desired). 

UONV 

( .0001') 

Uonvergeuoe  criterion  for  numerical 

1 terat.lon. 

STALE 

(.0833) 

He  Terence  hength  Scale,  in  feet. 

I'KKII 

(0.) 

Static  Pressure,  In  psi. 

TEMP 

(300.) 

Pda  tie  Temperature,  In  degrees  KanKIne. 

if 
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c.  Mesh  and  Mapping  Generation 


It  is  now  widely  appreciated  that  the  generation  of  an  adequate  computa- 
tional mesh  for  the  numerical  simulation  of  the  flowfield  about  general  air- 
craft configurations  is  one  of  the  most  difficult,  problems  facing  t.he  aero- 
dynamic i at.  This  problem  must,  be  solved  if  the  research  methods  presently 
being  developed  for  Idealised  configurations  are  to  be  extended  to  the  complex 
geometric  configurations  that  aerodynamic! sts  require.  'live  present  code  by- 
passes much  of  the  difficulty  by  the  use  of  the  small  disturbance  boundary 
conditions  consistent  with  the  governing  equation  being  solved.  This  allows 
the  wing  surface  to  be  approximated  by  a planar  sheet  of  sero  thickness  upon 
which  the  surface  slopes  are  specified.  Correspondingly,  the  body  boundary 
conditions  are  applied  on  an  infinitely  long  constant  cross-sectional  rectangle 
termed  the  boundary  condition  support  surface,  BOSS.  'Hie  resulting  grid  system 
requires  only  the  most  basic  aspects  of  the  plan form  and  body  geometry  in  order 
to  construct  an  acceptable  computational  mesh. 

Three  X-Y-Z  grid  systems  are  generated  internally  by  tin*  program,  or 
optionally  input  by  the  user.  In  addition,  the  plan form  mapping  required  for 
the  inne\  fine  mesh  is  either  internally  generated  or  input.  In  order  to 
reduce  the  complexity  of  the  input,  each  grid  system  must  be  input,  together; 
i.e.,  X and  Y cannot  be  generated  internally  and  Z read  in.  If  this  type  of 
input  is  desired,  the  program  should  be  submitted  once  with  i'Ol.V  K and  the 
generated  X and  Y grids  should  be  added  to  the  input  data  set.  The  initial 
and  fine  meshes  are  both  placed  on  a mapped  plan  form,  such  that,  the  Input.  X's 
refer  to  the  intersection  of  the  mapping  at  the  center  lint*.  The  crude  mesh 
Is  Cartesian  and  presents  several  different  problems.  The  purpose  of  this 
section  is  to  describe  how  these  meshes  are  generated  Internally  and  to  provide 
guidance  to  the  user  who  wishes  to  construct  his  own  mesh . 

The  fine  X-Y-Z  grid  is  described  first..  The  X and  Z grids  can  be  int  ro- 
duced directly  from  the  typical  2-P  programs.  The  X-mesh  that  la  generated 
internally  is  due  to  hr.  T.  Holst  of  NAHA  Ames  and  represents  an  improvement 
over  tiie  X mesh  originally  used  by  Krupp  (Reference  '>1  for  his  small  disturbance 
calculations.  The  spacing  of  the  mesh  should  he  reduced  about,  the  nose  and 
trailing  edge  with  the  mesh  opening  up  both  upstream  and  downstream  of  the  air- 
foil. in  the  inner  mesh,  the  upstream  and  downstream  boundaries  extend  about, 
one-half  of  the  chord  length  from  t.he  foil,  with  the  foil  leading  edge  being 
placed  half  way  between  the  grid  lines  at.  the  leading  edge , such  thnt  t.he  first 
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mesh  line  falls  about  one-half  percent  of  the  chord  behind  the  leading  edge 
and  on  the  trailing  edge,  with  a typical  spacing  of  1-1/2  to  2 percent  of  the 
foil.  The  mesh  variation  should  be  constructed  so  that  the  second  difference 
of  the  mesh  distribution  varies  smoothly.  The  program  provides  a tabulation 
of  this  difference  in  the  output  from  the  initial  setup.  Failure  to  enforce 
this  condition  can  lead  to  both  convergence  and  accuracy  problems.  Figure  4 
provides  an  example  of  the  typical  AX  variation.  When  considering  a three- 
dimensional  case,  the  X mesh  is  input  in  physical  dimensions,  based  on  the 
intersection  of  the  mapping  with  the  center  line.  Figure  5 illustrates  the 
procedure.  If  the  mesh  distribution  is  generated  based  on  a unit  chord,  then 
some  preliminary  manipulation  of  the  mesh  is  necessary.  Typically,  50-60  grid 
points  are  adequate  for  the  X mesh  in  the  fine  grid.  Figure  6 shows  an 
example  of  the  change  in  the  solution  with  various  X meshes,  so  that  we  can 
observe  that  the  general  character  of  the  solution  is  fairly  constant  between 
the  grid  densities,  with  the  increased  grid  density  serving  mainly  to  sharpen 
the  details  of  flowfield.  Another  X-grid  which  has  been  tested  is  the  grid 
due  to  Albone  et  al  (Reference  6).  This  grid  can  be  easily  programmed  but 
requires  about  8 empirical  constants  and  leads  to  a large  number  of  mesh  points. 
However,  the  reader  should  be  aware  of  this  X-grid  if  other  candidates  are 
being  investigated. 

The  solution  lias  been  found  to  be  relatively  insensitive  to  the  Z grid  used. 
Figure  7 shows  3 different  meshes  that  were  used  with  the  resulting  changes  in  the 
wing  forces  and  pressures  varying  within  plotting  accuracy,  as  shown  in  Table  II. 
The  wing  is  assumed  to  be  located  at  Z 0 and  halfway  between  the  first  grid 
point  above  and  below  the  wing.  The  baseline  mesh  shown  in  the  figure  is  a 
"canned"  mesh  employed  in  the  program.  The  usual  tangent  mesh  would  be  adequate 
also.  The  grid  extends  approximately  1.8  chords  above  and  below  the  wing. 

Hie  Y-grid  in  the  inner  mesh  is  simply  an  evenly  divided  set  of  lines  that 
provide  28  span  stations  on  the  wing.  This  grid  lias  been  acceptable  in  all 
calculations  performed  to  date.  The  user  might  consider  spacing  the  grid  more 
closely  in  regions  near  the  wing  root,  planform  kinks  and  the  wing  tip  in  order 
to  increase  the  local  resolution.  Some  experimentation  has  indicated  that 
adjustment  of  the  Y-grid  can  leud  to  a large  Improvement  in  the  convergence 
rate,  however,  this  property  seems  to  depend  on  the  particular  configuration 
and  the  automatic  generation  seems  to  work  well  with  the  present  scheme.  This 
is,  however,  on  area  for  experimentation  on  particular  configurations. 


The  inner  X mesh  produces  a variable  number  of  streamwise  points  depending 
on  the  particular  configuration.  This  is  a result  of  the  requirement  that  the 
inner  mesh  fully  "cover"  the  planform.  For  wing-body  configurations,  the  map- 
ping does  not  coincide  with  the  planform  and  since  the  X mesh  is  actually 
centered  around  the  ? = 0 and  ? = 1 lines,  the  planform  can  "stick  out"  of 
the  mesh  as  will  be  illustrated  below.  Hie  automatic  mesh  generator  ensures 
that  the  inner  mesh  covers  the  planform;  if  the  user  inputs  the  X-grid  and 
it  fails  to  cover  the  planform,  the  program  stops  with  a message  indicating 
that  this  condition  is  not  met. 

The  initial  mesh  is  actually  an  expanded  version  of  the  fine  mesh.  Cnee 
again,  the  X-mesh  is  generated  using  the  XMESH  subroutine,  with  a different 
set  of  input  values  which  results  in  a mesh  of  about  40  streamwise  points 
stretching  about  5 chord  lengths  upstream  and  downstream  of  the  airfoil.  The 
Y mesh  extends  to  about  1-2/3  semispans  with  14  evenly  spaced  lines  on  the  wing, 
and  then  gradually  enlarged  spacing  until  the  twentieth  span  station  is  located 
at  1-2/3  semispans.  We  should  note  that  the  mesh  spacing  should  be  generated 
with  difference  relations.  Care  should  be  taken  when  analytic  functions  are 
used  because  it  is  easy  to  construct  analytic  functions  which  produce  uneven 
differences  when  points  are  selected  from  them.  Typical  formulas  usually  look 


like: 


- A^ATl ^ 


where  is  either  constant  or  a "slow"  variable.  The  Z-grid  is  the  same  as 
the  fine  grid,  except  that  the  spacings  have  been  multiplied  by  a factor  of  5 
so  that  the  extent  of  the  grid  increases  from  1.8  chords  above  and  below  the 
wing  to  about  9 chords  above  and  below. 

The  crude  grid  is  Cartesian,  which  adds  some  special  requirements  to  the 
grid  construction.  The  Z-grid  remains  simple,  with  the  exception  that  two  Z- 
grid  lines  must  be  located  between  the  top  and  bottom  of  the  body.  Special 
provisions  have  been  included  in  the  automatic  grid  generation  in  order  to 
ensure  that  this  requirement  is  met,  while  the  failsafe  feature  of  the  code 
terminates  the  calculation  if  the  user  generated  grid  violates  this  condition 
(the  same  2 point  rule  also  holds  for  the  Y-grid). 

Hie  basic  crude  Z-grid  is  given  by  the  cubic: 

Z = a(L-l/2)  + b(L-l/2)3 

where  L is  the  grid  index  and  a and  b are  the  appropriate  constants  such  that 


R 

at  L = 1;  Z = Z-y,  and  at  L = LM,  Z = Z^^,  where  the  L's  run  above  the  wing 
from  1 to  LM  (typically  10)  with  Z^^  = 10  chord  lengths  above  the  wing  and 
Z1  = .12  chord  lengths  above  the  wing.  The  Y-grid  is  constructed  to  provide 
14  span  stations  on  the  wing  and  open  up  rapidly  outboard  of  the  eighteenth  and 
last  span  station,  which  is  at  5 semispans.  Due  to  the  Cartesian  mesh  in  the 
crude  grid,  the  X-grid  requires  some  special  considerations.  Hie  grid  must 
be  constructed  so  that  at  least  4 crude  X mesh  grid  points  cover  the  wing  chord 
at  each  span  station.  This  requires  a special  mesh  generator,  which  provides 
a mesh  that  meets  this  criterion.  If  there  are  less  than  4 points  at  any  span 
station,  the  accuracy  may  be  severely  reduced.  Normally,  the  full  streamwise 
points  in  a crude  X-grid  are  required  in  order  to  achieve  this  criterion  and 
also  provide  a grid  that  extends  10  root  chords  in  front  of  and  behind  the 
wing. 

The  mapping  aligns  the  inner  fine  grid  with  the  major  portion  of  the 
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wing.  This  is  the  natural  coordinate  system  for  the  wing  calculations.  The 
mapping  is  given  by: 

5=0  (1) 

where  and  X_ are  the  mapping  lines  that  must  be  defined,  either  through 

internal  generation  or  as  additional  input.  Generally,  the  X^_q  line  should 
coincide  with  the  planform  leading  edge  and  X^ coincides  with  the  planform 
trailing  edge.  This  is  not  necessarily  required,  however,  and  several  instances 
demand  a departure  of  the  mapping  lines  from  the  planform.  On  the  fine  grid, 
the  mapping  must  bend  such  that  the  body  is  intersected  perpendicularly  at  the 
body  side  = 0 has  been  assumed  in  the  program  at  the  body  side).  The 
initial  grid  also  requires  that  the  mapping  be  bent  outboard  of  the  tip  so  that 
the  5=1  and  5=0  lines  do  not  cross  in  the  physical  plane.  Figure  8a 
provides  an  illustration  of  the  mesh  bending.  The  initial  mesh  bends  such  that 
the  5=1  and  5=0  lines  are  bent  to  the  average  angle  of  the  lines  at  the 
trailing  edge.  The  bending  takes  place  over  a distance  which  is  one-half  the 
lateral  distance  between  the  tip  and  the  point  at  which  the  meshes  would 
intersect. 

The  mapping  is  input  by  the  user  as  X-Y  pairs  along  a number  of  segments, 
with  the  slopes  at  the  end  points  of  each  segment  also  prescribed.  The  most 
critical  area  of  the  mapping  is  the  wing  root  bending  and  we  will  now  describe 
a procedure  which  works  well  for  this  bending.  Consider  the  fine  mesh  mapping 
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5 (x,y)  = x-x(y>5=0 


X(Y)?=1-X(Y) 
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input  for  a wing-body  case  with  a straight  leading  edge.  Determine  the  Y-grid 
points  and  input  a 3 segment  ? = 0 line  as  follows.  Segment  1 is  a 0 (zero) 
slope  line  that  runs  from  Y = 0 to  the  first  Y-grid  line  outboard  of  the  root. 

The  second  segment  covers  4 grid  lines  and  has  a 0 (zero)  slope  at  the  inboard 
station  (Yroot  +1)  and  the  slope  of  the  leading  edge  at  the  outboard  end  of 
the  segment  (YrQot  +4).  The  third  segment  corresponds  to  the  leading  edge. 

The  mapping  would  be  constructed  in  reverse  order,  with  the  third  segment 
input  first.  Figure  8b  provides  a sketch  of  this  example.  Segment  3 requires 
two  X,Y  pairs  for  definition  and  the  slopes  are  the  same  as  the  planform.  Seg- 
ment 2 is,  of  course,  the  key  ingredient  of  the  mapping  and  an  enlarged  sketch 
of  this  segment  is  shown  in  Figure  8c.  Four  X,Y  pairs  are  used  to  define  this 
segment.  The  fourth  point  is  identical  with  the  first  point  of  Segment  3, 
with  the  same  slope.  Point  number  3 of  Segment  2 continues  to  coincide  with 
the  leading  edge  and  the  third  Y line  past  the  wing  root.  Point  number  2 is 
the  key  point  in  the  construction.  This  point  has  a Y location  on  the  second 
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grid  line  past  the  wing  root  and  an  X location  such  that  the  slope  between 
points  number  2 and  3 is  one-half  the  slope  between  number  3 and  4.  Once 
point  number  2 is  located,  point  number  1 is  easily  located  at  the  first  Y 
mesh  line  past  the  root  and  with  the  same  X value  as  point  number  2.  Segment 
1 is  finally  constructed  with  two  X,Y  pairs  describing  its  location,  one  pair 
at  the  center  line,  the  other  located  at  the  same  point  as  point  number  1 of 
Segment  2.  The  slope  is  zero  at  both  end  points  and  the  X value  of  both 
points  is  the  same  as  point  number  1 of  Segment  2.  This  description  should  be 
sufficient  for  the  user  to  begin  generating  his  own  mappings,  which  would  be 
constructed  in  a similar  manner  for  the  trailing  edge  and  planform  breaks. 

We  expect,  however,  that  the  vast  majority  of  the  user's  will  opt  to  allow  the 
program  to  generate  the  mapping  internally. 

In  regions  where  the  mapping  and  planform  do  not  coincide,  the  solution 
can  develop  inaccuracies  due  to  the  extreme  non -uniformity  of  the  grid,  which 
actually  crosses  the  leading  edge.  Riegel's  Rule  is  automatically  employed 
in  such  situations  because  this  rule  tends  to  compensate  for  the  uneven  spac- 

I 

ing  near  the  leading  edge. 

The  above  description  of  the  mesh  and  mapping  generation  describes  the 
methods  which  have  been  used  successfully  for  a number  of  years.  An  experienced 
user  can  construct  his  own  meshes  and  mapping  in  approximately  one  day  and  the 
results  will  be  customized  to  the  particular  requirements  of  the  calculation. 
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The  automatic  generators  provide  good  results  for  all  the  configurations 
studied  to  date,  but  the  automatic  generation  does  not  provide  the  specialized 
grid  and  mapping  construction  that  might  be  desired  in  some  applications. 
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ON  SOLUTION 


TACT  WING 


123456789  10 

MESH  POINT  ABOVE  WING 

Figure  7 Z Mesh  For  Solution  Effects  Study 
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LEADING  EDGE 


a)  Bending  at  Tip 


Figure  8 Example  of  Mapping  Construction 
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d.  Example  Inputs 

Several  examples  of  input  data  sets  are  included  in  order  to  illustrate 
the  various  methods  that  can  be  chosen  to  input  the  required  information. 
Figure  9 illustrates  these  different  inputs  as  follows: 

Figure  9a:  A55B21  Case,  to  illustrate  IFOILT  = T 

IBODIN  = T 

Figure  9b:  RAE  wing  "A"  Case,  to  illustrate  IFOILT  = F 

IBODIN  = F 

Figure  9c:  L54H18  Case,  to  illustrate  ITWIST  = T 

Figure  9d:  RAE  wing  "A"  Case,  to  illustrate  JMESHR  = T 

JMAPR  = T 
IFINR  = T 
IMAPR  = T 
ICRUDR  = T 

These  four  cases  illustrate  all  of  the  basic  methods  available  for  inputting 
the  geometrical  and  mesh/mapping  information. 


Figure  9a.  A55B21  Case,  To  Illustrate  IFOILT=T,  IBODIN=T 
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Figure  9c.  L5UH18  Case,  To  Illustrate  ITWIST=T 
(Continued) 
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Figure  9*.  RA£  Wing  "A”  Case,  To  Illustrate  JMESHR=T,  JMAPR=T,  IFINR=T,  IMAPR=T,  ICBUDR=T 
( Continued ) 
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Figure  9d.  RAE  Wing  "A"  Case,  To  Illustrate  JMESHR=T,  JMAPR=T,  IFINR=T.  IMAFR=T,  ICRUDR=T 
(Continued) 


Figure  9d.  RAE  Wing  "A"  Case,  To  Illustrate  JMESHR=T,  .TMAPR=T,  IFINR=T,  IMAPR=T,  ICRUDR=T 
(Continued) 
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4.  OUTPUT  RESULTS 


a.  General 

The  output  of  this  program  contains  a complete  description  of  all  of  the 
basic  elements  of  the  inviscid  numerical  solution  procedure.  The  viscous 
iteration  output,  as  described  below,  can  vary  from  a relatively  simple  over- 
view of  the  viscous  interaction  to  a completely  detailed  description  of  the 
boundary  layer.  Figure  IDa  shows  the  input  echo.  This  section  will  echo  all 
of  the  input  parameters  entered  into  the  program  via  the  NAMELIST.  For  the 
parameters  which  are  not  directly  input,  the  values  appearing  in  this  section 
are  the  default  values  supplied  by  the  program.  The  amount  of  output  appear- 
ing in  this  section  will  vary  somewhat  depending  on  the  exact  run  being  attempted. 
For  instance,  if  only  an  inviscid  solution  is  being  attempted,  the  section 
labeled  VISCOUS  ITERATION  PARAMETERS  will  not  appear.  If  the  REMESH  = T option 
is  in  effect,  two  sections  labeled  INITIAL  MESH  RELAXATION  PARAMETERS  and 
INITIAL  MESH  GENERATION  PARAMETERS  will  appear  following  the  flight  conditions. 

Following  this  NAMELIST  echo,  a section  appears  which  echoes  the  wing 
planform  input  ( Figure  10b ) . This  is  followed  by  the  echo  of  the  airfoil  section 
input  (Figure  10c).  The  size  of  this  section  will  vary  depending  on  the  extent 
of  the  change  in  the  airfoil  ordinates  over  the  span.  The  body  lines,  slopes, 
or  areas  appear  next,  depending  on  the  input  option  in  effect  (Figure  IDd).  The 
case  shown  is  for  a body  input  in  the  form  of  body  lines. 

The  following  section  describes  the  data  used  for  the  internal  mesh  genera- 
tion. If  the  user  were  to  input  the  mesh,  this  input  mesh  would  be  echoed  at 
this  point.  Figure  lOe  shows  the  iteration  for  the  mesh  generation  routine 
written  by  Dr.  T.  Holst  of  NASA  Ames.  Figures lGf  and  lOg  complete  the  iteration 
and  show  the  inner  streamwise  mesh  distribution.  The  output  shown  in  Figures 
30e  through  10g  will  appear  only  if  FI0UT2  is  set  equal  to  1 in  the  NAMELIST. 

This  section  is  followed  by  the  output  of  the  entire  computational  grid 
for  the  inner  fine  mesh  (Figure lOh)  including  the  first  and  second  differences. 
These  differences  should  always  vary  smoothly.  If  any  difficulty  occurs  in 
obtaining  a solution,  the  output  should  be  checked  to  see  if  the  problem  is 
occurring  near  a mesh  point  where  the  second  difference  is  not  varying  smoothly. 
The  output  illustrated  in  Figure  lOh  can  provide  important  information  for  use 
in  investigating  the  source  of  any  difficulties  in  obtaining  a solution.  If 
the  REMESH  = T option  is  in  effect,  the  grid  shown  in  Figure  10h  is  the  grid 
used  for  the  REMESH  solution. 
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If  BBCPRT  = T,  the  following  section  will  begin  the  output  of  the  body 
boundary  condition  information.  Figure  lOi  shows  the  input  body  lines  inter- 
polated to  the  fine  grid.  Again,  if  REMESH  = T,  this  grid  will  be  the  REMESH 
grid.  This  section  is  followed  by  a section  showing  the  area  distribution  of 
the  body  on  the  fine  grid  or,  if  REMESH  = T,  the  REMESH  grid  (Figure iQj ). 

Next  appears  a section  giving  the  upper  and  lower  surface  slopes  (RBCU  and 
RBCL  are  given  at  each  span  station  on  the  body,  see  Figures  10k  and  101) . Next 
appears  the  actual  side  wall  slopes  used  in  the  calculation  (see  Figure  lCta). 

Again,  these  body  outputs  will  be  those  for  the  REMESH  grid  if  REMESH  = T. 

These  numbers  should,  in  general,  also  vary  smoothly. 

The  next  section  will  include  a description  of  the  input  reference  trap- 
ezoidal wing  and  a description  of  the  actual  input  wing  planform  characteristics 
(see  Figure  10n).  The  grid  appearing  depends  on  whether  or  not  REMESH  = T. 

Figure  lOo  shows  the  next  section,  giving  the  details  of  the  XI  mapping.  This 
section  also  is  REMESH  dependent. 

If  WBCPRT  = T,  the  next  section  will  consist  of  the  wing  surface  geometry 
at  each  span  station  (see  Figure 30p).  This  section  allows  the  airfoil  geom- 
etry to  be  checked  for  irregularities  which  can  cause  strange  pressure  distri- 
butions to  appear.  If  REMESH  = T,  the  wing  surface  geometry  printed  will  be 
that  on  the  REMESH  grid. 

In  the  middle  of  the  wing  geometry  output  or,  if  WBCPRT  = F following  the 
details  of  the  XI  mapping,  will  appear  a line  giving  the  value  of  KSWICH. 

KSWICH  is  an  internally  calculated  clue  as  to  the  type  of  airfoil  input  to  the 
program.  If  KSWICH  = 0,  the  program  has  determined  that  the  foil  input  is  a 
conventional  foil.  If  KSWICH  = 1,  the  program  has  determined  that  the  foil 
is  either  supercritical  or  a flapped  conventional  foil  with  a relatively  high 
flap  angle.  The  clue  is  determined  based  on  the  difference  between  the  angle  of 
the  mean  camber  line  at  the  trailing  edge  and  the  average  angle  of  the  entire  mean 
camber  line.  If  this  difference  is  greater  than  5°j  the  foil  is  assumed  to  be 
supercritical  in  nature.  The  value  of  this  clue  governs  the  method  of  treat- 
ment of  the  viscous  solution  on  the  lower  surface  of  the  foil. 

If  REMESH  = T,  the  next  section  will  give  the  output  of  the  inviscid 
iterations  on  the  REMESH  grid  (see  Figure  lOq) . This  section  gives  the  history 
of  the  inviscid  solution  on  the  REMESH  grid.  The  REMESH  option  is  used  to 
provide  a guess  for  the  regular  inviscid  solution.  This  is  followed  by  a list 
of  the  potential  jump  residuals  across  the  span.  Next  is  the  error  plot  for 
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the  RIMESH  grid,  which  is  followed  by  a list  of  the  potential  jumps  at  the 
trailing  edge  across  the  span.  The  next  section  of  the  REMESH  output  gives 
the  inviscid  pressure  distribution  appearing  at  each  span  station,  followed 
by  the  body  side  wall  CP  distribution.  The  last  section  of  the  RIMESH  output 
gives  a summary  of  the  forces,  both  local  and  total,  calculated  by  the  program. 
Also,  the  local  Xcp  and  the  total  Xcp  and  Ycp  are  calculated. 

Following  the  RIMESH  output,  the  sections  appearing  in  figures ioh  through 
lOp  are  repeated  for  the  regular  inviscid  fine  grid.  Following  the  details  of 
the  XI  mapping,  the  details  of  the  body  geometry  on  the  coarse  grid  will  appear 
if  BBCPRT  = T.  This  output  is  similar  to  the  body  geometry  output  previously 
discussed.  This  is  followed  by  the  crude  exterior  grid  details  (see  Figure  lOr). 
One  of  the  most  important  pieces  of  information  in  this  section  is  the  summary 
of  JLEX  and  JTEX.  At  least  4 streamwise  mesh  planes  should  cover  the  wing  at 
each  span  station  in  order  to  obtain  accurate  results.  Therefore,  JTEX -JLEX 
should  always  be  at  least  3.  This  is  followed  by  the  airfoil  surface  geometry 
on  the  fine  grid.  The  actual  airfoil  slopes  at  the  grid  points  are  given  by 
DZU/DX  and  DZL/DX.  The  slopes,  output  in  degrees,  are  given  by  DDZU  and  DDZL. 

As  mentioned  before,  irregularities  in  the  input  ordinates  can  usually  be 
spotted  in  this  section. 

After  the  airfoil  surface  geometry  appears  a section  listing  the  parameters 
saved  from  a prior  solution,  if  IDISK  = T.  The  first  portion  of  this  section 
lists  the  inviscid  saved  solution  parameters (see  Figure  10s).  KWRITE  is  an 
internally  generated  clue  denoting  the  type  of  saved  solution.  This  clue  is 
generated  in  SAVSOL  and  inserted  at  the  beginning  of  the  saved  solution.  If 
KWRITE  = 0,  the  old  solution  being  read  is  an  inviscid  solution.  If  KWRITE  = 1, 
the  old  solution  being  read  is  a viscous  solution  and,  in  addition  to  the  invis- 
cid data,  the  saved  data  includes  the  old  deltastars,  deltastar  slopes  and 
pressure  distributions  for  both  the  upper  and  lower  surface  at  each  span  station 
(see  Figure lOt). 

The  next  section  gets  into  the  actual  solution.  It  consists  of  a summary 
of  the  residual  parameters  from  the  inviscid  solution  (see  Figure  10u).  The 
table  presents  the  following  information: 
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T 


1 


MESH 

ITER 

ERROR 

ERRAV 

JE,  KE,  LE 

BIGRL 

RSDAV 

JRD,  KRD,  LRD 

NSUP 

LIFT 

PJRSD 

KPJ 


Alternating  FINE  and  COARSE  mesh. 

Iteration  number;  fine  and  coarse  iterations  appear  in 
sequential  order. 

Maximum  correction  to  potential  in  iteration  ITER. 
Average  correction  to  potential  in  iteration  ITER. 

Mesh  indices  of  maximum  correction  to  potential. 
Largest  residual  in  iteration  ITER. 

Average  residual  in  iteration  ITER. 

Mesh  indices  of  maximum  residual. 

Number  of  supersonic  points  in  mesh. 

Inviscid  lift  coefficient. 

Maximum  change  in  potential  jump. 

Location  of  maximum  change  in  potential  jump. 


This  is  followed  by  a table  of  potential  jump  residuals  at  each  span  station 
(see  Figure  lOv).  Next,  error  plots  for  the  fine  and  coarse  mesh  appear  (see 
Figures  1CV  and  10x ) . On  each  plot  is  printed  the  maximum  error  and  the  maximum 
residual.  This  completes  the  inviscid  output.  The  output  shown  in  Figures 
IDu  through  lOx  is  repeated  after  each  viscous  iteration;  or,  if  IVISC  = F,  is 
followed  by  the  pressure  distributions  at  each  span  station  and  the  final 
force  summary. 

Viscous  Output 

If  IVISC  = T,  a section  of  viscous  output  will  appear  after  the  coarse 
mesh  error  plot.  There  are  3 options  available  for  the  viscous  solution  in 
addition  to  the  normal  output.  These  options  will  be  discussed  following  the 
discussion  of  the  normal  viscous  output.  The  first  section  of  viscous  output 
consists  of  a summary  of  the  pressure  convergence  history  (see  Figure lOy).  It 
gives  the  inviscid  lift  calculated  from  the  integration  of  Acp  at  the  trailing 
edge.  The  pressure  convergence  history  gives  the  maximum  change  in  Cp  and 
the  average  change  in  Cp  at  each  span  station  on  both  the  upper  and  lower 
surface.  In  addition,  the  new  Cp  and  the  old  Cp  at  the  location  of  the  maxi- 
mum change,  with  the  location  itself,  are  listed.  For  the  first  viscous 
iteration,  the  old  Cp's  will  have  a value  of  -2  at  each  span  station  as  initial- 
ized by  the  program.  If  IDISK  = T,  the  old  Cp's  will  have  the  value  of  the 
Cp's  from  the  old  (saved)  solution,  interpolated  to  the  new  grid  (if  the  saved 
solution  is  viscous  and  MSHINT  = T). 


58 


F 


This  summary  is  followed  by  the  viscous-inviscid  interaction  solution  at 
each  span  station.  If  BODY  = F,  the  first  span  station  to  appear  in  the  out- 
put will  be  span  station  number  1.  This  is  the  first  span  station  at  the 
center  line  of  the  isolated  wing.  If  BODY  = T (i.e.,  the  configuration  includes 
a body),  the  first  span  station  to  appear  will  be  the  first  span  station  out- 
side the  body.  With  most  configurations,  this  is  typically  span  station  num- 
ber 5*  The  first  portion  of  this  output  lists  the  upper  and  lower  surface 
Cp's  and  the  associated  local  Mach  numbers  at  each  of  the  chordwise  X/C's 
designated  by  the  fine  mesh  (see  Figure  lOz). 

The  next  portion  of  the  viscous  output  (Figure  lOaa)  begins  the  boundary 
layer  solution  at  the  current  span  station.  The  effective  sweep  angle  at  this 
span  station  is  printed.  If  separation  is  detected  in  the  laminar  solution, 
a statement  to  that  effect  is  written  and  the  solution  proceeds  as  turbulent. 

The  X/C  at  which  laminar  separation  occurs  is  written  out  with  the  above  state- 
ment. If  the  specified  transition  point  is  reached  without  laminar  separation 
occurring,  the  solution  switches  to  turbulent  and  no  laminar  boundary  layer 
message  is  written.  If  separation  is  detected  in  the  turbulent  boundary  layer, 
this  is  written  out  with  the  X/C  at  which  separation  occurred.  At  this  point, 
the  upper  surface  boundary  layer  solution  halts.  If  separation  is  not  detected, 
no  message  is  printed.  In  either  event,  the  program  proceeds  to  a lower  surface 
and  repeats  the  boundary  layer  calculation. 

Following  this,  a new  section  entitled  NEW  DISPLACEMENT  THICKNESS  AT 
STATION.  . . appears  (see  Figure lObb).  This  section  consists  of  a table  list- 
ing the  following  parameters: 

J Chordwise  station  index. 

X/C  X/C  at  point  J. 

D-TOP  Upper  surface  displacement  thickness  (6*). 

CHANGE  Upper  surface  fractional'  change  in  5*  from  previous  iteration. 

INP-SLP  Upper  surface  6*  slope  input  to  program 

= relaxation  parameter  X actual  6*  slope. 

ACT-SLP  Actual  slope  of  6*  on  upper  surface. 

D-BOT  Lower  surface  displacement  thickness  (6*). 

CHANGL  Fractional  change  in  lower  surface  6*  from  previous  iteration. 

INP-SLP  Lower  surface  b*  input  slope. 

ACT-SLP  Actual  lower  surface  6*  slope. 
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WBCU  Upper  surface  slope  of  equivalent  inviscid  airfoil. 

WBCL  Lower  surface  slope  of  equivalent  inviscid  airfoil. 

As  the  solution  converges,  INP-SLP  and  ACT-SLP  will  approach  each  other 
until,  at  convergence,  they  should  be  equal.  The  entire  output  of  Figures  lOz 
throughiDbb  is  repeated  for  each  span  station. 

Following  the  final  span  station,  the  drag  estimate  is  presented  (see 
FigurelOcc).  This  includes  the  total  viscous  drag  estimate  and  the  upper  and 
lower  surface  skin  frictions.  Immediately  below  this  appears  a table  with  the 
following  parameters: 

K Span  station  index. 

CFFKU  Upper  surface  local  drag  estimate  at  span  station  K. 

CFFKL  Lower  surface  local  drag  estimate  at  span  station  K. 

MACHUP  Number  of  sonic  points  on  upper  surface. 

SONPU  Last  acceleration  past  sonic  on  upper  surface. 

SHKPU  Last  shock  on  upper  surface. 

MACHDN  Number  of  sonic  points  on  lower  surface. 

SONPL  Last  acceleration  past  sonic  on  lower  surface. 

SHKPL  Last  shock  on  lower  surface. 

Next,  another  table  will  appear  listing  the  X/Cs  at  which  separation 
occurs  on  the  upper  and  lower  surface.  Also  listed  are  modified  and  smoothed 
upper  surface  separation  points  (see  Figure lOdd ) . if  the  foil  being  analyzed 
is  a conventional  foil,  this  table  will  be  followed  by  one  listing  the  modified 
and  smoothed  lower  surface  separation  points.  Following  this,  a listing  of 
the  modified  upper  surface  wing  boundary  conditions  at  separation  appears  (see 
Figure IDee).  If  the  foil  is  conventional,  this  will  be  followed  by  a table 
of  the  modified  lower  surface  wing  boundary  conditions.  This  completes  the 
viscous  output  for  a single  iteration. 

Following  the  viscous  output,  another  group  of  inviscid  iterations  appears. 
Then  the  entire  group  of  viscous  output,  from  Figures lOy  through lOee,  is 
repeated.  The  inviscid  and  viscous  outputs  continue  to  alternate  until  the 
solution  either  converges  or  the  maximum  allowed  number  of  viscous  :i terations 
is  reached. 


Final  Output 


Following  the  last  viscous  iteration,  the  program  will  cycle  through  one 
final  group  of  inviscid  iterations.  Hie  program  will  then  print  the  pressure 
change  summary  for  the  nth  + 1 viscous  iteration.  After  the  final  pressure 
change  summary,  the  program  will  print  a statement  to  the  effect  that  the 
solution  either  has  or  has  not  converged  in  the  allowed  number  of  viscous 
iterations  (see  Figure lOff).  This  is  followed  by  a table  giving  the  conver- 
gence history  of  the  viscous-inviscid  interaction.  The  items  printed  in  this 


table  are: 


EPS1X 


EPS2X 


CPUK1 

CPLK1 

CPUK2 

CPLK2 

DELUK1 

DELLK1 

DELUK2 

DELLK2 


Viscous  iteration  number. 

Calculated  lift  coefficient  for  iteration  J. 

Number  of  inviscid  iterations  performed  between  viscous 
iteration  (J-l)  and  viscous  iteration  J. 

Sum  of  Cp  changes  from  previous  viscous  iteration  on  upper 
surface. 

Sum  of  Cp  changes  from  previous  viscous  iteration  on  lower 
surface. 

Upper  surface  Cp  at  selected  inboard  span  station. 

Lower  surface  Cp  at  selected  inboard  span  station. 

Upper  surface  Cp  at  selected  outboard  span  station. 

Lower  surface  Cp  at  selected  outboard  span  station. 

Upper  surface  6*  at  selected  inboard  span  station. 

Lower  surface  6*  at  selected  inboard  span  station. 

Upper  surface  6*  at  selected  outboard  span  station. 

Lower  surface  6*  at  selected  outboard  span  station. 


Next  is  a table  giving  the  potential  jump  history  at  each  span  station.  The 
convergence  history  is  concluded  by  tables  giving  the  history  of  the  upper 
and  lower  surface  separation  zones  and  a table  giving  the  final  trailing  edge 
potential  jump  (see  Figure ]£>gg). 

The  next  section  of  output  (see  Figure  lChh)  consists  of  print/plots  of 
the  pressure  distributions  at  each  span  station.  The  tables  with  each  plot, 
list  the  following  parameters: 

J Index  of  chordwise  station. 

X/C  X/C  at  chordwise  point  «T. 

CPU  Upper  surface  Cp  at  point  J . 

CPL  Lower  surface  Cp  at  point  J. 
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MU  Upper  surface  local  Mach  number. 

ML  Lower  surface  local  Mach  number. 

DELTA  CP  CPL-CPU. 

ZSONICU  Height  of  sonic  line  on  upper  surface. 

ZSONICL  Height  of  sonic  line  on  lower  surface. 

The  following  section  consists  of  a table  (see  Figure  lOii)  of  body  side  wall 
Cp's.  The  final  normal  output  section  consists  of  the  final  force  and  moment 
summary  (see  Figure  10jj ) . This  summary  inclu.es  the  spanwise  force  distribu- 
tions and  the  wing  total  force  coefficients.  In  addition,  the  local  and  over- 
all center  of  pressures  are  listed.  The  parameters  listed  in  the  spanwise 
force  distribution  table  are: 

K Index  of  span  station. 

Y Distance  from  center  line  to  span  station,  under  considera- 

tion, on  fine  grid. 

ETA  Fractional  spanwise  location  of  span  station  K. 

C/CAVE  Local  wing  chord  divided  by  average  wing  chord. 

C*CN/CAVE  Local  normal  force  span  loading. 

C*CA/CAVE  Local  axial  force  span  loading. 

C*CL/ CAVE  Local  lift  force  span  loading. 

C*CD/CAVE  Local  drag  force  span  loading. 

O 

CM*(C/CAVE)  Local  pitching  moment  span  loading. 

CN  Local  normal  force  coefficient  found  from  integrating  the 

surface  pressure  distribution  at  span  station  K. 

CA  Local  axial  force  coefficient  found  from  integrating  the 

product  of  the  surface  pressure  distribution  and  the  local 
wing  boundary  condition  at  span  station  K. 

CL  Local  lift  force  coefficient  found  from  CN  and  CA. 

CD  Local  drag  force  coefficient  found  from  CN  and  CA. 

CM  Local  pitching  moment  coefficient  found  from  integration  of 

ACp*X  where  X is  distance  from  X moment  reference  to  chord- 
wise  point  J. 

XCP/C  Local  spanwise  center  of  pressure  as  fraction  of  local  chord 

calculated  from: 

XCP/C  = XMOM  - CM/CL*C 


M 
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This  completes  the  spanwise  force  coefficients  table.  The  next  portion  of 
the  final  output  section  gives  the  total  force  coefficients  for  the  wing-body 
configuration.  The  parameters  given  in  the  total  force  coefficients  are: 

Area  of  reference  trapezoidal  wing. 

Aspect  ratio  of  reference  trapezoidal  wing. 

Area  of  actual  wing. 

Aspect  ratio  of  actual  wing. 

Area  of  exposed  wing. 

Total  normal  force  coefficient  based  on  SREF. 

Total  axial  force  coefficient  based  on  SREF. 

Total  pitching  moment  coefficient  about  XMQM. 

Total  lift  coefficient  calculated  both  by  surface  pressure 
integration  and  by  circulation. 

Total  inviscid  drag  coefficient. 

X location,  in  fine  grid,  of  center  of  pressure  calculated 
from: 

XCP  = XMQM  - CM/ 


SREF 

AR  REF 

STRUE 

ARTRUE 

SEXPOSED 

CN 

CA 

CM 

CL 

CD 

XCP 


'(total )/CL(total)*CAV 

YCP  Y location  on  wing  of  center  of  pressure  calculated  from: 

YCP  = S(ACP.Y) 

E6CP 

CDF  (Upper)  Upper  surface  viscous  skin  friction. 

CDF  (Lower)  Lower  surface  viscous  skin  friction. 

CDF  (Total)  Total  viscous  skin  friction. 

CD(P+l)  Total  drag  coefficient. 

CB  Unswept  root  bending -moment . 

This  concludes  the  normal  output  of  the  program.  However,  if  ISAVE  = T,  a 
group  of  tables  (see  Figure lQkk)  will  appear  giving  the  values  of  the  viscous 
parameters  that  are  saved  for  a future  restart.  These  parameters,  displace- 
ment thickness,  displacement  thickness  slope,  and  pressure  coefficient  appear 
for  each  span  station  and  both  the  upper  and  lower  surface. 

Output  Options 

There  are  3 output  options  available  to  the  user.  The  first  of  these  is 
generally  the  most  used.  By  setting  FLWRIT  = 1,  the  amount  of  output  generated 
is  decreased  by  a factor  of  about  3*  This  option, and  also  the  other  two,  is 
useful  only  on  viscous  solutions.  The  change  in  output  occurs  only  in  the 
viscous  portion  of  the  solution.  The  sections  of  output  illustrated  in 
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Figures  IDz,  DObb,  IDcc  and  10ee  are  eliminated  and  the  section  illustrated  by 
Figure  lOaa  becomes  that  shown  in  Figure  1011.  After  the  final  viscous  iteration 
a summary  of  the  boundary  layer  information  from  the  final  viscous  iteration 
is  printed  for  each  span  station  (Figure  lQnn). 

The  other  2 options  should  be  used  very  judiciously  as  they  increase  the 
amount  of  output  tremendously.  The  first  option  is  selected  by  setting  FIOUTP  = 
1.  With  this  option,  a detailed  description  of  the  boundary  layer  is  printed 
for  each  span  station.  This  option  increases  the  viscous  output  by  a factor 
of  5 over  the  normal  viscous  output.  The  primary  use  of  this  option  is  in 
troubleshooting  the  solution  in  case  of  problems. 

The  second  of  the  2 options  is  invoked  by  setting  FIOUTP  = 2.  This 
option  causes  all  of  the  output  of  the  previous  option  to  be  printed  with  the 
addition  of  a complete  set  of  boundary  layer  profiles  at  each  point  on  the 
wing.  This  increases  the  amount  of  output  by  a factor  of  5 over  that  with 
FIOUTP  = 1 and  leads  to  a truly  prodigious  amount  of  output.  It  is  highly 
recommended  that  this  output  option  not  be  utilized  unless  absolutely  necessary. 
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FIGURE  10a  ECHO  OF  INPUT  OPTION  AND  FLIGHT  CONDITION  PJ 
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FIGURE  10b  SAMPLE  WING  PLANFORM  INPUT 
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FIGURE  10c  SAMPLE  AIRFOIL  SECTION'  INPUT 
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FIGURE  lOd  SAMPLE  BODY  INPUT 
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FIGURE  lOe  SAMPLE  MESH  GENERATION  OUTPUT 


*****  AIRFOIL  ITERATION  ***** 
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FIGURE  lOg  SAMPLE  GRID  DISTRIBUTION 
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FIGURE  10 i SAMPLE  BODY  LINES  INTERPOLATED  TO  FINE  GRID 
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FIGURE  lOz  SAMPLE  VISCOUS- INVISCID  INTERACTION  SOLUTION 


BOUNDARY  L*TE«  CALCULATION  AT  3T»I*  6 INITIATED 

M'ECTIYE  8*EE»  ANGLE  IS  TAKEN  TO  BE  07,15 


O O O !•  O O I > ■ o U O O C>  * i O O O O o O C O o O O O O O O O O O O C O O O »)  O O O O O O O O U 

I i • • • I < I • « I • I I I I I ( I I I I • I I I I • • I I I I I • I I I » » 

«l  m W «J  Ih  u>  a)  Ml  II  to-  Ji  ttJ  ui  Ul  i»>  »)  II.  4il*ikiMWMil|ft)UJklttMfclbMUkiMMWttJhtltiUlkilUWl4l«lkiMJ«IUi 

_|  ? 4 M # » 

u -•  o 4 o •*  sjy  f*  « « c?  r-  a ► 09  M9  c*— r~<rr-~u'w'04U)4>O*a433r 

S «N  4 k/>  ® O | X*  (V  ^ O ® 0 4 ^ ® O ff  « J •««  4 r.  09  »»v 

■ *~  f-  « JMP  4 J 9 4 4 4 


41  ul  tkl  »1  Ml  il  jl  Ml  ll  al  ui  A)  «J  Ul  tl  Ul  4l  kl  it  .u  ul  Ui  J Ml  Jl  Ul  III  -1>  1*1  I*!  UJ  >4l  Ul  14)  lU  U MJ  4l  kil  ^1  Al  AJ  Ui  Ml  Ml 

J or*  - o o Anr  o - . #*»  j - • » ■ *r  ■»  j 4 r a - j -vr  i — x>  r\i  — o in  a oMfuvoh  o irw  4^ 

U r>  • r*  A 4 O ^ v>  t)  "V  r K M O IT  ^ J«Ort40«N  > i r.  j ^ o A >•  ] i>|  J1  A A C C 4 N C /i 

® ®C-*Art^4iT«-'C  or  .'O  400l\llT*>C'*\l4  « 9 (h  — IM  4 4}*4NA^IPC4M^*»t'-^.''Oj 


. to.lto.IU'  to!  I 

i r*-  r o ’♦i 

O Al  » 4*  I 

I (4  i>  © X>  i 


» AAioor  a 
ih  - a 4a  ^ 
4 4>  *'  «C  I*  /X 

• IV  IT  - ff  IM  *A 


to.1  tot  UJ  Ui  Ul  Ul  tot  U<  tol  to<  to*  ul  to'  toi  toi  toi  tot  *, 

ivoomiAiAimrirruMniAim 
Arot^rvaaaaaaaaaa  44 
•*\4r««  <*1444444444444* 


1 to'  HI  tol  u Ul  toi  Ul  4 to)  Ui  Ul  Ul  U*  Ul  tol  Ui  Ul  tol  toi  tol  tol  tol  Ul  I 
,4^4  Aa  nriTlAAOlAlAtAlAlAlAiAlAiAiAiAiAi 
»^«-r«»4NMh  tO«f*NrA*KKKKNKKr>.| 
MAh  OlAO  lA  Ht  4 4 4 4 4 £ -0  4 « « « 4 

i -•  « tA  ^ >i  ix  4 


o o o o o c o o o O O C t O C O l»  t)  C O O *:  O O O C>  O O C>  O O O O O O O O O C1  O O O O O o o o o 

—I  It  to'  Ui  Ul  Ui  to-  to  to'  UI  U U.  to)  to  U.  Ui  to  • Ul  to-  to  toi  U'  tol  tol  U>  Ul  U.  Ul  Ul  tol  to  Ul  U>  U-  Ul  Ul  U<  U<  Ul  Ul  Ul  U<  U'  to  U<  U tol  to  Ul 

ll  OOOOOOOOJ  JOOQOOOOOOOWOOOOOOOOOOOOOOOOOOOOOOOOOOO 
2 OOOOOOOOOOOOOOOOOOGOOOOOOOOOOOOOOOOOOOOOQOOOOOOO 
4 O 30000  3 0 0 4 r O O O (»  O O DoOOOOOOOO  3 0 0 0 0 0 00000000000030 


O O O O O O O C O > O I 


tol  Ul  Ul  Ul  Ul  Ul  Ul  U)  U>  Ul  Ul  tol  tol  Ul  tol  tol  tol  tol  tol  tol  U>  tol  tol  Ul  tol  U)  Ul  Ul  Ul  toi  Ul  Ul  Ui  Ul  Ul  Ui  Ul  Ul  Ul  Ul  UlUIUltoltoltolUiUI 

k « c a h t x r j < « a it  ( h * o w it  h .i*-rcA|foahoinrAcMViriira«“UNr.  4 o rx  — 

'J  O h N NIA  •«  U J 4 h ^ O IT  M U XI  o^^4«»tAA-MhlA*^rift|h®A-**)A'M»  4 <*-  *»  ® h*  4>  4 *X 

a r » -»iAir  h « o — a a iru  r>  »-»Air  h » • u r«-a«-,444'4  x ■~»K»r*-©«'4-«K'4  <or-aKiarf'<i 

» ^ IV  -A  A A A A I a » 4 I 4 3-ril'lArf>-A-AlAirj»AirA4Ah  4)  O ~«  X 4 O r-  tol  V»  — — 


o a h a -•  a i 
A IA  o ••  h 4 - 
i ■*»  r»%  m r-  I\i  — • r 
^•»A  (V  Ai  IV  Ul 


•AAI-^II  « A ® V 4 
Ai4iVMcr«^irh 
A»AOhh©AIOA' 

4 — rr«  iai 


AiMMVAil 

o o o o o 


.•IIIAlAlA.IVAlAMVK'lAlAA^rti'lAI 

>000  0 0000000  0 00091 


r • a o < i 

•a  <r  « « « 

r*  4 O • O ; 


. Ui  Ul  Ui  Ul  U)  ul  tol  to*  1*1  Ul  tol  tol  UJ  to)  tol  tol  . 

»a  d «'  ki  a «>  a ir  A.  tr  « or  — ir  « 

I X O O »U  X 8 AMOOAN4  ©►(«. 

-CIT  * A AAh  Oir>4  A AlAm  A 1 

I © AJ  -iAIfUHi-AiA/i^hiniMr 


CC'COC  COCO*.  O C C O C C CO  o C O C OOOCCCC'CO  C CO<  C C C O O V.  c r o c c c c 

tol  ♦ ♦♦♦«♦  •4*494  « #4  ♦ ♦♦«♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦*♦♦♦♦♦♦•♦♦♦♦♦ 

U U'  U U U U to  U U U U-  U to  U U to-  U U'  U U-  U U U U U U U U U U Ul  U U U'  UJ  U U U U U-  U*  to'  U U U U U U U' 

t OOOOOOOOOO  '-iO  > ■ O O O O r'  OOOOOOOOOOOOOOOC'OOOOUOOOOO  O o o 

4 ooooccucci.  o o o * < c c*oc.  oooc  o c o o o t ooc  core  ooooc  c c cc  *_o  o 

X OOOO  3 0 0 0 0 0 0 0 3 ■ *»  O 3 0 0 0 0 0 000000000  0 0 0 0000000  0 0 0 0000 

lA|A|A|A|A|A|AfArA|AlAH<.  l«-fA|A»AlA|AnA|AIA|AIA|Ar.  |A|AK.|A|AA,AiIVA|IVA|MAiMAiAAIV(V(VA.’A! 
O O O O O O O 3 0 0 0 0 - ■>  3 O > O O O O O O 3 O O O o O O O O J O O 3 0 0 30000000  1 O O 

• • I • I I I I I I I • • I I I I I I • I • • I I • • • I I I I I I I I I • I t I I I I I I I I 

a Ul  Ul  UJ  tol  Ul  tol  tol  Ul  U'  tol  Ui  tol  U'  Ul  Ul  U‘  tol  1*1  Ul  to  Ul  Ul  Ul  Ul  ul  U*  Ul  Ul  U*  ul  tol  Ui  U#  Ul  Ul  U#  ui  ul  Ui  ui  ul  Ul  toi  to»  toi  tol  U>  Ul 

C AAKA-Ai-A*  ••  » 4 A d A f 4 40  4—  — <V©X>C  — — C.K1C4  4 CAhhlA^^tro^ 

r «h-*iA4ir.«h  « r*  -r  9 8 a a ^h  o h oa  aa  ^ahAirort©AcAAA»  <r  4 rx  r iuoo 

9 iv-<«c'-iAAh  » a 1 r r — -4.  <\  o u > r*  4 a x 4 o c a a h a c h r.  ^ a A a - ^ 4 o 

O »«aiaiaiiAiaiA»aia*a  » i >ir>»/>ox>r‘rrh*rr*r*rr*r*»**«><9<9  - 

*•4  •'••••••••  •«•••••••■  •••*••••••••  «••••«  •'•«!•'  • ••••« 

u h AO  >*9  «AOMA09»OA«8l-H8A9l/i0^089  4 « fA  9 4 O A IV  9 l/i  h A A C » « h 4 

x 4 9 v ai  a ia  .t  r r « r « -t  o — An  r h * a © h o k-'  a x * • *v  x'  r r Ar  c ‘K<  ir  a «ia  a « o a a « « 

M 4 4 4 |T  © )T  IT  flAAAhhhh«®»®99  9 9 9 

«h©9  3 -•  A A I or  P 9 O^AA4vTAhC9  O •-«  A *A  4 A N 480-VA4IT  © r-  r 

M^^^r.M^M^r-n.lMIVAAAAAAAAfAAAAAAAAAa  CT  4 4 4 4 4 4 4 


f 


FIGURE  lObb  SIMPLE  BOUNDARY  LAYER  OUTJXJT 


TOTAL  VI 9CUU9  0»A9  COEFFICIENT  19  ,TITE*0I  TOP  VI9COU9  D«A0  19  ,<|9(*0S  BOTTOM  VI9COU9  DRAB  19  ,l»C*0S 


X 

T if*  r>4  j> 


-o  i o 

O O " o 

::  S r 


» r*  « x — « 


O OOOOOOOOOOOOOOOOQOOO 


1000000009000000000000 


« o • 

- a a 


|«^0»ar.«r4x  H WOf»O»«4«<«O||t0^l«>*fl|9l«IW^M«rt«i 

irtMMNniniAtnifx*  *>»<  or  oir  Atc^  OKi9Nqra«o»0  L 

• — _ - - UJ  *-**-««««  0 — IV9  « lAtf 


FIGURE  lOdd  SAMPLE  SEPARATION 


r coo© 

40^0000 
< 1 » Ml  *1  Ml  <•! 

a *•**-•• 

M wOM^W 

U O 4 Ot  « 
►*  a i r a t-  « 

4 9 I O ^ 


03  000003  0 0 0 0 3 00003  00003  0003  O O O ««  3 00003  0 0 0 0 3 

00«^000000^00000^00000-^00000*^0000^00000^s00000^00000  Q 
♦ ••)♦♦♦♦♦«*)♦♦  ••*>4  4 4 4t  *14  4 4 4 W 

Ml  ••IMUIIMIII  ■ »UIMIUM  « •WUIUI4II  *WMMMI  «MUIIU  ■ «U4ttlUIW  « «MMMM  I •ultflUM  • JT 
-•  y « «-  4 - C » Ol«»44  V k •V'V  M V •«  O • y MM«*0  V 4 4 O ««  V <W  4 4 ^ S 

**  ^4004  - • ® » • W44I4N  «IT44  w*  ® M K <4  Q 

4)  3IT  O 44\  3 O G KV  O 3 4 4M4  3 ft*  O IT  L M - •*  4 3 -*  « 40  IT  2 O h Mf  Q 

« t»0  4»  4 0 0 U**«04  UO  <4  -*0  0 4-004-  U«  4 4 UltO»*«  UC  IT  O U4  W44  3T 

IT  i MT©  - h f OAI44  ® OlM4  © «<*'  ^ « « « • O 4 4 O IT  C m 


i«4  ■ i « ry» 


14  - « WN1©»N  » N >4*4l000|f>.«10000«4KO0OO^ 


a 

O 4444 

O 

S • 

IP 


4 r 4h  ► »10**IW|44»*J-I4l^4  t ^ r*  4 0*)4lM4  4 *^*'MK(4ir*)*‘4lK<4  4>-)^f4  4t4h 


9 4 4 4 4 4 4- 


' «“•  4 4 4 4m  449 


SOLUTION  DTD  NOT  C0NVC«6E  In  max  AllOnCO  |TfM 


k 


o o 
J • • 

9 

o 


v o o 

O o o 


J o o 


w o o 

O o o 


ai 

a o 
a ►> 
a va 

a 

•*  <r 

-i 

a *i 

a 

• • 

a • 
u • 


-•  K o 
-J  -M 


3 a 

a • • 

Vi  • • 


M 04  ( 

ai  - 


Ml  o 

a ^ 


oooooooooooooooooooooooo 

♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦'♦♦♦ 
UiUlUtiilAlUIUlH/ttluilUUfWlUianfciaiiuiUWUlkJUiiAl 
OO  li  K XcK»-3lfhOQ  IV  — 

oivia^oMoa^HiMrt 
oiv^hcoffcc  r‘4>4Tira#*#v<r-.c»-a-~#'-oj^ 
39414)439  4^444444^*^*OrtOir>i-« 
• •••••••-•••  ••'•'•'•  ••  • • • •'  • •*• 

IVIMAlAllVMMMnilVHMIWNIVMMMMMVilWIMlWIViM 

OOOOOOOOOOOOOOOOOOOOOOOO 

MlMlUlUlUlAllfclUfUaulMIMiMl  UlUJUIUlUiUiUlMiVlJUiMJ 

a i a o a a 3K^«(nr-*-o90cM9«dM»\c 

•«|f)OCOdOdlM|V4»IVir)hMC»ClAKOC 
9^MiThKh«ir9^MiV(^ooci4(ytohd« 
i*aaaaaaaa  4 4 d a -3  ^ro«OK\»om*ooi04  — 


oi  a 
u m a 

a irsa 


«K«9  O^ISIHIta^l 
>^  ««  *4  **  (shm  is(  (smsi  a a ( 


*»li  »»»«.  STITIOX  (Til  ,*0400  »•  i*S,3«««0  CI»»X 

Z»OnJC  LOaCR  I tOxlC  v»n» 

• l/C  C*o  C*c  “X  “C  OtLTI  ca  Ztoxtcu  ZtOxJCL  ♦•♦♦♦♦♦*♦♦*♦♦♦♦♦♦♦♦♦♦♦♦•♦•♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


3 3 3^33 


IJ  J J J J 


^ 3 

9 


JOOOOOOOCOOOOOOOOOOOOOOOOOC'OOOOOCOC'CtOGOOOOOOOOOOOOOOO 
I0000900000090«00a9000000000a0000a:j000039000000390000 
tooooooooooooooooooctoooooooooooooc oooooooooooooooocoo b 


OOGOOOOOOOOOOOOOOOOOOOOOGOOOOGOOOeoOOOOOOOOOOOCOOOl 


ooooooocco»**«*«*o##»»»imroooi/OcooooooooooorfMf\»»»»»M'ioirirco 

— •*»  000009 

_M_fV3«rv3j3i3i3j3<3j3f3i3*3j/M3i3/3j'« 


£ 

e 


» # • o » o o c coo  ^ 


3i  3»  9 3#  0 cor  * r oMt  * ««*  » G r-  4MT  ct 

oKN«<VN^ir)»4»t0«rvont  t 

oooc  4««  « » 8rirrirmr'r**«4*^«»*roo«-.ftiMiv«»«c  £ 


«9O9«>900*~900O9*»90  »r-*WNA.«'coo  909  ••  r 9 m j m o - - lmi  k>  ^ o k o r « k • 


14  <t  ^1^49  «<■ 


«rt9*  * «ir  « Of  J- 
a3»3*3l«V3lC.9 


9 © — « 0 

*9  0 © ~ — 9 
r « 9 "»  31  31  o 


.©9—0.a3*«D0o0i 
G93*9  0«3<9>©  C 9 
»M«4  « < 


If*  0 9 tn  9 x9  « K>  lO  K © © O 3 9 KNn«'M4>  ©0 

^ <1  4 ► — — o«*o©«9  ©«  o \ r>  9 /vc  © « — o%NarrM9  « 9 
• 0000*3-*©9*©;90«l9-*o."»090©©3i0999  s »x  « » © f"  o 
.MWV...^«.ooococococo*xniiMo  9 o « « « a « • 9 900 


O 


« 

© 

— 0 

9 

— 

« 

9 

0 9 0 

*r 

.« 

0 © 9 

9*- 

0 

9 9 9 

•V,  0 9 • C ► 

*-  0 

*9 

9 

0 

9 

— 

0 c 

9 9 

9 

0 

G 

« 

9 

0 

0 

cat 

•V  © 

9 

9 © 

0 

31  «•  — 

K 4 - 

*M 

o 

K K 0 /* 

C) 

31 

© 

© 

9 

C»  © 

V © 

9 

9 

© 

© 

3 

000 

0 

O 

0 0 

c 

V* 

« <3 

9 

r 

<a 

r r<v9 

C. 

► 0 9 

a 

0 

9 

*"  © 

© 9 0 0 « 9 

* U 

»- 

9 

0 0 

0 

t »w 

*V  © 

a 

•- 

w 

9 

9 

© 

W 

© 0 9 

0 

9 

0 

9 0 

► 0 a. 

© • 

9 

0 

9 

0 — 3# 

0 

9 

— 9 l/> 

9 

0 

0 

O •» 

-»  0 0 0 «r  0 

K 9- 

9 

9 

© 0 9 9 9 

•*  — . 

v» 

.3 

O 

3 

31 

9 3»  © 

© 

© 

0 3i  © 

c 

• 

G 

• 

— 3, 
• • 

9 

9 

• 

• 

• 

0 

9 — 9 

• mm 
• • 

0 

• 

O 

• 

iririf 

• • • 
• • • 

9 

• 

9 

0 
> • 

• 

0 

• 

© © 

• • 

9 9 
• « 
• • 

0 

• 

0 

• 

t 

0 

• 

0 

• 

0 

• 

0 0 
• • 

9 • 

0 0 
• • 

• • 

0 

• 

0 

• 

0 

1 • 

■ 

9 

• 

0 

• 

0 

• 

© 

• 

© 9 9 

1 • 1 

9 

• 

9 

• 

9 

• 

3.  3. 

• 

0 * 

9-  © 

9 

* 

c 

O G — 

0 • 

— — «* 

9 

9 

-c  4 0 ©0 

9»  9- 

« 

0 0 

0 

♦V 

9 

i 

0 

0 

0 

0 

© 

9 

9- 

0 »v  0 

9 

C 9 

» 0 

0 

a 0 

9 

r* 

9 

3 M O 

0 

© 

© © 9 

9 

3i 

3*  © 

9 31  — — — O 

0 9 

9 

31 

-3 

0 

9. 

9 9 

9 9 

0 

9 

0 

0 

3* 

• 

0 9© 

O 

O 

C> 

O O 

« 

9 

e 9 

9 

3i 

m- 

c 

C ••  <V  <V  9 

0 0 © 9 

0 

9 9 

« — 9 9 o 0 « « 

9 

9 

0 

IV 

0 • 

— 9 

9 

« 

0 

© 

t* 

*V 

9 

9 9- 

9 

© 

a 

C 3. 

9 

31 

— 0 

O O 

O 

0 

OOO 

0 

O 

000 

O 

O 

— 

— 

0 9 

9 

9 

9 

9 

0 

9 9 

© © 

© 

9 

9. 

9 

c 

* 

© © © 

© 

© 

© 

O O 

9 

t 

• • 

* 

• 

• 

• 

0 0 

© 

© 

• ©#IM9> 

- 

4 • - 

** 

© 0 9 © 

© 

0 

9* 

9 9 

y\«M  m ► 

— y 9 0 

© 0 

9 

y 9 

0 O 

O 

C» 

9 

3* 

O 

0 

0 

--f 

0 

© 9 

O 0 

0 

• 

— © 

« 

9 

0 

9 9 

0 i « © 

O 9* 

0 

0 

0 

9 9 

0 9 

© />* 

© 

0 

Ot 

« 

© 

ip  0 

9 0 0 

O 

0 

9 

9 O 

c 

« 

« — 

0 

© 

© 

0 

0 ••  ® 

0 

0 

► 00 

9 

0 

9“ 

0 «t 

0 « 

m 

9- 

4x 

0 

0 

• 0 

0 — 

«V 

9 

© 

9 

c 

« 

9* 

9 0 <V  0 

© 9 

a g 

0 

© 

9 9 

0 

• 

0 0 9* 

9 

* 0 g ** 

9 

9 

© 

9 — 

59  9*  G 9 © 0 

3*0 

9 

_ 

9 

0 

G 0 0 0 0 

« 

0 

fS) 

0 

a 

9 

► © «V 

9 

0 « 

0 0 

0 

• 

0 

0 

3*  *9 
9 9 

0 

0 

0 

0 

0 

0 

0 

0 

irr  r 

9 

9 

0 

0 

999 
9 9 9 

9 

9 

9 

9 

9 

0 

9 0 
0 9 

9-  9 
0 0 

9* 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 0 

0 c* 

0 © 

O O 

© © 

© 

© 

© 

3jl***3t0000 

©©©«©©©© 

9 9 
« © 

9 

0 

0 0 9- 

0 

O 

*9 

9 

0 

0 

9 0 

• 0 

O 

0 

9 

0 

© 

9 « © 

O 

3* 

0 9 

9 

-* 

9 

31 

*9  3» 

990 

9 

0 

9 

0 

•* 

0 9 

0 9 

0 

• 

9 

W 

• 

<3 

9 

9 9 9 

0 

0 

0 

0 0 

Ifo  itOil 


30000  3000  0 0xlMt>|r4  >000000000000  O ->000000 


r-  • » «r  « « — * « ® r>-  4 o 3 «*  <?  *«t  ® o *>»  r-*  4>  *x  x>  r~-  o 

c c « ««  m - ^ ^ t ^ ~ KV  « *>*-***'<  ivoorv  < < (V  P p h o » ^ ^ 3 » 

. X O N nt  O O C • ^ > » <V  O • P » M » * > >©>*«>.»  Oi/%»  — 

*-4#-Ai^^«riKr  x»-«  « p 1 rv**N«rr-  orvtrr-  c n r ► orv«rr^o»Vtr«  c »«  r « — •**<*«  o rv  a ® « o 

-»  a 4 irur  r « v ® 9 9 «►  (»  9 > 


C»OX<V^J^«^09  O— 4>  C O OxIM^a^ONj.yox^ 


FKJW;  10  j i SAMPU;  SI».  WALL  CP  IjISTPIHH  PJ>. 


AHVWE  IN3W*.  (iNV  1'Wri  TWii  TMWVS  ffoi  M!ilJ 


FIGURE  lOkk  SAMPLE  SAVED  SOLUTION  OUTPUT 


l‘t*«  **  »r*I*  «1 1 ?*1 

i**ltit.(  »-fi*  i-e^r  T»  iu(«  to  «t  ?c,V 


'MS  1011  SVGtc  V3SWi  L*YS>  CALOJT^Tns  OtfnOT  WTTH  F 


* 

V 


a 

y 

a o 


a 

J4 

A 3 


O a 

*- 

9 

Ul 

/ ►* 


O O 3 O O o O O .«.«.<  .<  .« 

OOOOOOOOOt^OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

yyyyyyyyywyyyyyyy«itiiiuyyyiftiyyyyyyyyykiyyyMktyyyyy 
a o « « 4 -.oa<\iiM-0ar--*a  4 « 4 o 

4^M<io#4o««i<iir^«)>orr>tf>^«'*arfVK»«a'*iM^«HHMir^(»  om^ai  #4  •• 
4f4«  « 4 #»  4 4 • « Al 

4*  K»  01  — — — .‘Or^  IT  4 Q .»4M«4^^lO»»»4U»»»4rtlM^i^-«MWtn4t^ 


OOOOOr*^^r*^^.-»*4**Wl«»Myi\l^»«^r<,.r.^r.^^^.^^**r.^r*r4^000000 
OOOOOOOOOOOOOOOO^OOOOOO  JOviOOJvlOOOOaOOOOOOOOO 

♦ ♦♦♦♦44i444444t4444«4444d444ta4944444a*04044 

3 y wy wy y yy wyyy yyyy y yy y yy wy y wy yy y yyyyyyyyyyyyyy 

Cl  -*  9-  •>  43  4-  «•  « 4 e K J«h9  — 4»(--M(Vi4^4«n^c«i 

A »««»»  4 010  9 444  404tt»MOMhM4lA4iriA0<«MK>4  4 »K  44  »^«0000 

■ 4*  » * « •*  4>  4»  C4f^i44404l4««>«IMl4«OM4  44«*^4»»4M«44r>«OOMMMM 

44lM^r«4K^iA4t4<4^««4^«444  ~»-+-+*$(ytfVf*f*'+f+f*%<9  4»41»4^®4^'*'«^^*« 


A 

d 


oocorocc'ooooooc'oooc’oocooooooroooooooooiioc'coo 


14  4 4 4<VO404<V)^l<Mi 
l\(««CO^^Or  K 4 10  <M  a « 
IV  0 «4  4 ^ 0 30IV4-^4^I 
(V  41  y\  ^ 44  49  • * •'•  r«  »-*  49  •"*  * 


IV40IVr«. 
KM  4 4 M 
40  4 00  • 


HV-*  IV  4 -•  r-  0«rt(\lV4  0 OIV4  - 

40^4r.444^MVO4**4h  4 4 • 14  0 •«  < 
•0|P.-«ilV(MK^Mni4l*»^^  O 0 '«  4 K>  ^ 4 0-  - 


O 

o 


o o o 

• • • 

*4>  *1  Ui 

m4h 
4 r»  ^ 
► *-M 

0 « N 


4 44 

O O 

a a 


O I>  »> 

• at 

y y y 

IV  « 4 
4 «V0 
O O IV 


• a 

uj  1*1 
0-  O 


1400 

O v>  O 

* a a 


o o 

a a 


IV04  (f \ -+W\ 


— «3 

404IV0IV«h  4 0 4 4 0 
IV4Ol'IV0  0-*4IV4®r- 


o o o 

a • • 

uj  y y 

Me  4 
0 0 4 
4-  10 

a»^  0 


o o 

• a 

«U  «4l 
4 —• 
O 10 

m c 

<4  •* 


O U 

a a 


c> 

O 10 


nt  tst 
o o 

a • 


»0  4 
4>  «v 


oooooooo  oooooooooo 

aaaaaaaaaaaaaaaaaa 

ui  y y y yy  y y y ui  y y y y y yy  ui 

M O 4 0 4*  4 4 C 4 O — at-*'  0 00  4 
4 4IVN  Oh40O«IK  0 4 N 4 0 0 0 
4 0O0  0®IV00O-MIV«OW®^ 
IV  V0  4 4)4^^^IVIVIVIV'VIM^^.| 


a 0000  0 0c*00c'0  000  0 0000r000000000000000c*00000c‘00 

j aavaaaaatattttataaaaaaaaaaaaaaaaataiaaaaavaa 

a»  yyyyyyyyyuiyyyyyyyya  y y y tu  y y wi  y y y y y y y y y n y y y y y u y y 

a a 0 0^4  0 0 0 0 h i00%yr^4^p^  m 4>i\ii0o^«rw|0r-  ^04^04  o *\i  ai  «o  «m  0-  0 4 9 o « 

*-  4 r t 0 M h r 4 IM  r.  » 4 t 4 '«  4 IV  O • f ‘1  O - 444<IV4r«40  4>00O4alV4 

u iv  ^*4  o IV  o 4 -^0  4 ® 40IVN0004  4 0 4 ar^»0tf>*0«>o*0»0r^r0*0^<f»«-r>'  o r\i  « r-  4 

0 Cr>  *<0«  ~ • O0IVIVIVIVIW^r«»«*.  -^»*».^-«^-^.-^444-^0«  **4®r*a».004® 

' * • * a • a a a 

<t  0 4 4 00  00000000000MIVIVIVMlVIVIVlVIVIVlVIVyiVMIVyfVIVIVIV»VIVlVMlV 

000j0000a0000v%000  0 0f>00030f»0003000000000u0000 

a • • • 1 1 a ■ • 1 1 • • • • • • • • 1 1 1 • • 1 • 1 • 1 a • 1 • • a • ■ 1 • • a 1 1 • 

a yyyyyyyyyyyyyuiyyyyyyyyyyyyyyyy  yy  y yy  y y yui  wi  y yy  y 

C t < 0 o 0 c 4(V40or0n<4  qm  4 o ^0  Mi  a4'0**3O»0fV0ioa~*«'«y»rfy-'»4'»\i*3cr 

>*  0 4 r>-  M4  104*  0 4 ^ 4 009  OIVIV»000O®00OMV44  -*04  00^oMnM0K0h 

B M00  d d d 4)CdlV444CC4dOO^IV0040444»'4®«C«Cd  C 4 ® 4 4M  O o 

o 0 4 <®i4-*i*~**-*f^0%»0a»04>0.®<4  a 

• « • y • •••••••  • • y • •••*•••••'  • ••*••  ■?•••••••*  •'•••• 

U « VOfiK  a 0 r-  O0>|040IVVIV^O9h00^4N  a tf*  0 4 4 4 400-0  4 r-  4 o o O O 
X O**IVM0d0a®4»*000»*4»»«i004,^44aM0C*<44O004IV444»«4  40  0 
V 00  oaiOOOoio^HHr*IVl\lVrt000il  a « 40004a4KKKh00®04  4 0 4 0 


L 


102 


FIGURE  10nm  SAMPLE  BOUNDARY  LAYER  SUMMARY  ttfTH  FLKRIT 


b.  Description  of  Internally  Generated  Messages  & User  Response 

There  are  a number  of  "failsafes"  built  into  the  program  to  check  for 
obvious  problems  that  would  cause  the  program  to  fail.  A list  of  the  problems, 
the  associated  program  response,  program  action,  and  required  user  correction 
follows  in  Table  III.  These  failsafes  are  intended  to  check  for  obvious  input 
errors  and,  if  necessary,  warn  of  insufficient  progress  toward  a solution.  As 
shown  on  Table  III,  some  of  the  input  errors,  primarily  geometry  errors,  will 
cause  the  program  to  stop  execution  and  require  the  user  to  correct  the  errors 
before  resubmitting  the  job.  Other  errors  will  generally  cause  a warning  to 
be  printed  along  with  a statement  of  whatever  action  the  program  took  to  counter- 
act the  error.  Execution  in  these  cases  continues.  It  should  be  noted  that 
the  program  has  a certain  priority  scheme  for  handling  problems;  for  instance, 
the  IDISK  clue  will  override  the  REMESH  clue  if  there  is  a conflict.  If  the 
REMESH  option  was  the  one  actually  desired,  the  code  will  fail.  Although  the 
internal  checking  will  ensure  that  the  most  obvious  errors  will  be  corrected 
before  a long  computer  run,  the  user  should  continue  to  exercise  care  in  the 
construction  of  data  sets. 
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FPOSLO  PROGBAX  RESPONSE  PF'X^AK  ACTTGB  "SO  CCRRKTIMI 


TABLE  III  (Continued) 


TA 111  III  ' Itnclulel 


JOB  CONTROL  LANGUAGE 


a.  General 


Tbe  exact  Job  Control  Language  (JCL)  required  to  execute  the  program  will 
vary  from  installation  to  installation.  We  have  included  examples  of  IBM  JCL 
for  the  WPAFB  ASP  IBM  370/155  computer  and  CDC  JCL  for  the  NASA  Ames  CDC  7600. 
The  JCL  will  also  depend  on  the  different  modes  of  operation.  These  include 
operating  from  either  a source  deck  or  Load  Module  and  starting  the  solution 
from  scratch  or  from  a previously  generated  solution.  The  source  code  will 
typically  be  stored  on  tape  or  disk  due  to  its  relatively  large  size  (6  boxes 
of  cards).  IBM  JCL  is  emphasized  due  to  its  relatively  elaborate  requirements. 
For  IBM  execution,  the  program  requires  compilation  on  the  H-extended  compiler 
using  the  OFT  = 2 option.  About  l400K*of  core  storage  is  required  for  execu- 
tion. Information  for  estimating  the  running  time  of  a particular  submission 
on  a specific  machine  was  included  in  Section  II. 

b . Sample  JCL 

In  this  section,  we  include  examples  of  JCL  for: 

(1)  Compile -Load-Go 

(2)  Execution  From  a Load  Module 

(3)  Generation  of  An  H-Extended  Load  Module 

(4)  I/O  JCL 

(5)  CDC  Update  Execution 

These  are  intended  to  provide  guidelines  for  the  typical  user,  while  he  develops 
his  own  style  of  operation. 

(l)  Fortran  Compile -Load-Go 

This  JCL  deck  is  set  up  for  an  IBM  FORTH,  OPT  = 0 compilation 
using  the  ASD  FORTHCLG  catalogued  procedure.  It  is  assumed  that  the  source 
deck  is  stored  on  disk.  Testing  at  ASD  (September  1977)  has  shown  that  OFT  = 2 
generates  improper  code  on  the  H-ccmpiler.  There  is  a factor  of  2.5  in  execu- 
tion CPU  time  between  OFT  = 2 and  OFT  = 0,  so  that  OPT’  = 0 is  not  recommended 
for  production  luns. 


//GRU Ml  SOI  Jfin  < T;*rA,|.V.rt*OA.  0030.  AOOO  .AFI. ’MACKENZIE X 
//  MSOtrvKL-l  .CLAKK-Z.REGION-IKOOK  .T|MF -410 

/•MESSAGE  CPU  ThX  410  MIN,  If  ALL  CLOCK  *00  M|N,  RFGION  I 90  OK 
//AMES  E*CC  FtWTMa.G.PAf»M.FORT%’O*»T«0’  .ReGI0N.FORT*400K  .T  |Nr. FORT-1  0.  X 
//  PARM.LKCO-’SinXI  IOK.ZFK I .NAP.LET.LIST*.  X 

//  rfgion.go-i  noo*.YiMe.c;r>-*oo 

//FORT.SVSt  IN  OO  nSN«tMO  AOSF  T *0  I SP-<  .PASS  | , X 

//  UNITM*YKDA.SFP*SVS»»«|NT)  .SPACF-ICVL  .(4.1>)  . X 

//  OCMMWt  CL»B0.RLKSI/F-3Z00| 

//FORT.SVf.lN  no  n VSP%Kt«»  , DAN •DTTOZT©. MASON. GACANCS.CV9I  .CAROS,  X 

//  UNtT«3330.VOl -SFR-OSPrOZ 

//LKCO.SvK|N  no  • 

CNTRY  MAIN 

/• 

//GO.FTO©rOOt  no  SVST1UT-  A.SPACE-<3SZO.<SO0.SO>...ROUNO|.  X 

//  UN|T«(  SYSDA.SI  r'-fTWOOl  > . X 

//  OCf1"|RFCFH»rinA.U»CCL*IJ3,HUSIZF«3468| 

//GO.FT I0F00 I OO  DUMMY 

//FTHFOOI  DO  O!Sr*-(,KtCP).OSN*orrO*ra.MASON.F0aCrsi«X!OO»  X 

//  UNI  T —9330. VOL* SC  R*OSPFOZ»  X 

//  Sfr»AC»  »<?H«  • IHO'M  | , x 

//  DCO*tPCCFM«rM.LPFCL-RO.RLKSlZE-3tZO> 

✓/GO.FT|?FOOI  DO  UNI T» SYSOA • X 

//  SPACE -tCYL.f 51).  X 

/✓  OCR-1  RCCEM-VOS.LPCCL-Z404  •BUCK  f rt>Z4  0 a.NUFNO- Z.OPTCD-C7  > 

/✓GO.FT I3F001  DO  DUMMY 

//go.sysudump  on  sysout»a 

✓/■GO. SYS  IN  00  • 

ICARO  INPUT  Goes  MERC  I 


In  this  JCL,  the  source  deck  is  stored  on  3330  disk  0SPF02  and  has  the 
name  D770278.  MASON. GACAMES.CY5. CARDS.  The  solution  starts  from  scratch  and 
provision  is  made  to  store  the  solution  on  the  same  3330  disk,  with  the  name 
F8.CY51.I100.  The  data  sets  are  saved  in  a formatted  form  in  the  program  in 
order  to  allow  for  the  same  saved  solution  to  be  used  on  both  IBM  and  CDC 
equipment . 

The  CPU  time  allocated  for  this  job  is  for  100  cycles  on  the  initial  grid 
(REMESH  = T)  and  100  cycles  on  the  fine  grid  with  EXTMSH  = T on  the  ASP  370/155 
computer.  More  cycles  will  normally  be  required  for  convergence  so  that  the 
ISAVE  = T option  is  recommended.  The  wall  time  is  arbitrarily  set  to  100 
minutes  more  than  the  CPU  time.  The  wall  time/ CPU  time  ratio  is  strongly 
dependent  by  the  environment  in  which  the  job  is  executing  and  can  vary  from 
l/l  for  a stand-alone  job  to  10/1  with  other  jobs  executing  simultaneously. 

The  following  I/O  units  are  used  in  the  C»0  step: 

FT05FW1  (SYSIN)  - unit  5 is  used  for  card  input. 

FT06F001  - unit  6 is  used  for  printed  output.  Space  has  been  allocated 
for  30,000  lines. 


FT10F001  - unit  10  is  used  when  starting  from  a saved  solution  (IDISK  = T) 

FT11F001  - unit  11  is  for  saving  the  solution  from  the  current  run 
(ISAVE  ■ T).  In  this  JCL  deck,  the  solution  is  saved  on  disk. 

FT12F001  - unit  12  is  a scratch  disk  data  set  used  for  interpolating 

between  meshes  and  is  required  (if  MSHINT  = T or  REMESH  = T - normal 
operation). 

FT13P001  - unit  13  is  used  for  generating  an  input  data  set  for  the  Nash 
3-li  boundary  layer  program  (IBLOUT  = T). 

(2)  Execution  Erom  a toad  Module 

This  JCL  deck  is  set  up  to  execute  from  an  OPT  = 2 Fortran  H- 
extended  load  module.  Again,  the  CPU  time  allocated  for  this  job  is  for  100 
cycles  on  the  initial  grid  and  100  cycles  on  the  fine  grid.  The  comments  above 
on  the  ratio  of  wall  time  CPU  time  still  apply. 


'/G**>«|4*4  I P .(V'f.O.  00^0.0000  . •**  ACKfi  N*1f -***-»▼**  •.  * 

/*  WSA4.fVft»l  • CV  ASS  •«*  CION"  1*00*  *T * ISO 

S4MCS&4GI:  O'M  H«i:  »50  *»J N.  WALL  ClOCK  &0  W»*l,  4fGI ON  UOM 

//6«(AMrs  rxrc 

✓/*  result*  or»  Mso^^,('SN»t'’M?’k>A«.(w.ucv*es,cynuro«U4«).  * 

//  UNI  T.J  VtO  . vm -si  ct*O^f^  02 
//FY0SF00I  OO  OONAMt»SY*lN 

ssrioerooi  oo  *v*nuT *4 «*P4ce: too *&o>  ••  •<*ounc>.  a 

✓ / UN|TM  SYSOA.Sf (*»FTOOFOO|  I • * 

//*  t'CHMHFCt  M.mSA.IMt  Cl»l33,hUMn»34ft») 

✓ /OTIOFOOI  OO  rs»M*lV 

/✓Fturooi  (*0  Ol  SM.J  .KCC»>»*OV4»4»VOr7A,MASON.F«,CVS|«  1 100.  * 

//  oNiv>.wo«vni.»st  *+o*p*oi  • k 

/✓  S^ACf- «T«»A  , «90,OM  , K 

/S  OCM  » (SFC?  lWtCL»O0,fU.«*l?r«  31  ?C> 

//w ti;poot  w>  V>*I  t»svsi>A,  X 

//  SMACftrVL.  fMI*  K 

//  C y«.  ( 4£Cf4»VOS  .l«t  CL-*4C*4  .fliXS  I « -*40». OUFNO» f .0*TCD«C2 I 

//OTISFOOI  OO  IHWW 
//SYVMH*1***  00  &YS(\>T«A 
/MYJIN  OO  • 

KAMO  IN**UT  GUfcS  Mt**f  I 
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(3)  Generation  of  a Fortran  H-Extended  Load  Module 


This  JCL  deck  is  set  up  to  generate  a Fortran  H-extended  Load 
Module  when  the  compiler  and  supporting  Fortran  library  are  available.  It  is 
assumed  that  a FORTXCI.  catalogued  procedure  similar  to  the  FORTHCL  catalogued 
procedure  is  available.  The  partitioned  data  set  containing  the  load  module 
is  stored  on  disk. 


//G**vP*©00!  J<V*  I ! .V*  • 00*»0  • 00  TO.  ('('at*  . .?  , ) , *MACKt  N7I  — •*  X 

//  *Tc.LrvEL*i  . a.  as*-c  .PrrurvN-TX?*  . n*r-.|  o 

/•MESSAGE  CPU  T!«C  10  MIN.  WALL  CLOCK  SO  MIN,  PEGlON  320K 

//a**es  e«cc  fiwtxo.  ,p*w.FnRT**n«»r(?»  tots'. mor-??0K  .TiMr.rtwr-i  o,  x 

//  OAQM.LKrO* *SI  n:* ( I I 0K.?0K ) .MAP.LFT.I  1ST* 

//FOMT.SVSLIN  nr  nSN-«.r.LOAOSCT,riSP«(  .PASS)  , x 

//  UNlT»<SrSOA.SKV«SVS(H»!NT>,Sn*Cf:*<CYL  .(A.))),  X 

//  0CH*tRrO-»«*EH.LWFCL»*0.nLKS|7rO?00> 

//rwr.SrSIN  no  O IS**»lnLO.KELP)  .OSiy-CACAMCS.CrSI  .CAPOS 

//LXFO.SVSLMnfT  OO  OlSPal  .KEEP)  .OS^GACAMrs.CVSI  .FORTXMOrX  OPT^WOO)  • X 

//  UN!T«3330»vnL>SFR*nSPP0* . X 

//  SPACE  »<  TP* . IA0.A.&) > 

//LKED.SYS1N  OO  • 

CNTMY  MAIN 


(4)  I/O  JCL* 

To  save  a solution  on  tape,  the  FT11F001  DD  statement  above  is 
replaced  by  the  following: 


//mi root  oo  of  s»*«nLo  .nsN«Eo.crsi . t too . 

//  UNlT»(TAPr.«OFPFR».VOL«*F*-NOI101. 

//  l.A»ICl-n.SU, 

//  OCM-(MCCEM«rtS.LMrCL»AO.(ILXSfrr«3IEO.OEN-3) 


Note  that  an  additional  message  card  should  be  inserted  in  the  deck  after  the 
first  message  card: 

/•MESSAGE  THIS  J«l  WILL  MEOUVftE  TAPE  N0I10I  PITH  VPITE  MING 

To  retrieve  a previously  saved  solution  from  disk,  the  FT10P001  DD  state- 
ment is  replaced  by  the  following: 


//rnorooi  oo  oisi^in.ii.iiHPi.DW^mm.NjaoN.M.cyn.iioo. 

//  uNtr*339o.vmo*e»«n*prof> 


* Hie  DDNAMES  for  these  DD  statements  should  be  //G0.FTXXF001  for  a Compile- 
Load-Go  execution  and  //FTXXF001  for  execution  from  a load  module. 


Ill 


To  retrieve  a previously  saved  solution  from  tape,  the  FT10F001  DD  state 
ment  is  replaced  by  the  following: 


/srriopoot  m>  x 

//  UNIT.JTIK  , ,VOL>W««NO||0|  • X 

✓/  iAan>(i.io 


Again,  an  additional  message  card  should  be  inserted  in  the  JCL  deck: 


nuriuoc  this  jia  sill  acouiw  ««  hoi  10 1 no  «inc 


If  an  input  data  set  for  the  Nash  3-D  boundary  layer  program  is  desired 
(IBLOUT  = T),  the  following  JCL  cards  replace  the  FT13P001  DD  statement. 

To  generate  a punched  deck: 


//* Yisrooi  do  %r*njT*a 


To  save  the  data  on  disk: 


/vrrureoi  on  .«rr pi ,o!tN*o^rr*r«.»»AXON.NASNOATA.  x 

/✓  ohit«3wo,vixl»»  »-o»Pror . x 

/✓  v*(r  •(Tua.n.m.  x 


To  save  the  data  on  tape: 


//f*T|jrOOI  DO  OI**^OLD*OSN«NASMDATA*  X 

//  UNI »•< TAPT . .Or*T*> •VOL»5CM«ND| 10ft  K 

//  LABCL-I  I. XL  )•  X 

//  oc«»iiif€rN>Ni,LfffrL»«o.m.KSirp>!iito.PCxo) 


Xdth  an  appropriate  message  card  inserted  in  the  deck. 

If  the  Nash  program  is  going  to  be  run  as  a subsequent  step  in  the  same 


job: 


//ft  13*00  | DD  OVXI»<  .AASM  ,DSN%M.NXXMOATA. 
//  UNI T-SYSPA. 

/✓  SPACP  -I  TQtk  . «|  .1  M • 


X 

X 

X 


.2 


The  GO. SYS IN  DD  statement  in  the  NASH  JCL  deck  would  be  replaced  by  the 


following: 


ssco.svsin  do  orw»iaLD^>e(.crti.nsN>ctM*sMO«TA 


(5)  CDC  Update  Execution 

This  JCL  deck  provides  an  example  of  the  CDC  JCL  corresponding 
to  the  job  described  previously  in  Section  (l)  and  (2).  The  appropriate  CDC 
operation  assumes  that  the  source  code  is  stored  on  the  systems  disk  in  update 
format.  The  JCL  is  set  up  to  save  the  solution  on  a mountable  disk  pack.  The 
update  cards  indicated  in  the  JCL  are  only  required  if  the  code  is  being  modified. 


GACO6.Tj>A0.PN»YDI  • HACKT*47\ 

ACCOUNT  .STTG PI 

MO'INT,  . VI*tTTTPR3. 

REQUEST  . T At*  F l | . , S*» ST TFR03* 

ATTACH.fH.OPl.  .GACOOPPC .Cr»5. IP» STTGPV* . 

UPDATC'F. 

RCTilRR  .OLOPL.  • 

RFL  • 

riN.  l .lcm« i ,nr»r«2  *h«o. 
pcTuPN.fn*viLr. 

LGO.O*.  *99999, 

CATALOG,  TAPCIJ  .EBCVSJ  ! J 0 O . I D«STTGRlP«  , SN-STT  FRB  3 . 
7©9  CARD 

(UPOATF  CARDS  GO  HERE) 

TP 9 CA»D 

(CARD  INPUT  Gc«iS  HD»C> 

6T89  CARO 


HAflCrM71F..G»l»MMAN.  .5 1 6-4.R5  S36T 1 
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6.  SAMPLE  CASE 


A complete  output  of  the  run  resulting  from  the  input  Until  oet  shown  in 
Figure  Qb,  the  RAE  Wing  "A",  configuration  is  included  in  this  report.  The 
execution  was  made  on  the  Grumman  IBM  370/1(6 , with  a running  time  of  22  CPU 
minutes.  Th i s sample  demonstrates  the  REMKSH  option,  as  well  as  the  viscous 
interaction  option.  The  result  converged  quickly  because  the  lift  change 
test  was  set  at  5 times  its  basic  value  in  order  to  provide  a shortened  out- 
put. The  underflows  appearing  in  SOLV  at  the  initiation  of  the  REMESH  itera- 
tion are  typical  of  the  solution  on  IBM  machines,  where  the  initial  iteration 
may  lead  to  products  of  small  numbers  which  are  under  the  allowable  size. 

These  errors  have  no  effect  on  the  final  results  mid  the  user  should  not  be 
unduly  concerned  if  they  appeal-  at  the  initial  stages  of  the  inviscid  iteration. 

In  the  viscous  part  of  Uie  solution,  notice  that  the  interaction  moves 
the  separation  point  aft  mid  that,  as  we  might  expect  for  this  case,  there  is 
only  minor  separation  predicted.  The  occurrence  of  local  separation  does, 
however,  demonstrate  that  in  any  fully  coupled  program  some  treatment  of 
flow  separation  is  required. 

For  tills  particular  case,  the  final  C.  mid  0 did  not  print  on  the 

Ii  V 

special  output  paper  and  the  user  should  consult  the  force  page  after  the 
HEMER1I  option  for  a typi cal  result. 
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IS  TKU€  - USE  PPEvIOUSL*  DEFINED  AIHFOIi.  U PD  I NATES 


COMPUTA1  IONAL  GRID 
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bOUNOAHY  LAYER  CAS.CU.AI1  ON  A1  STRIP  - 7 INITIATED 
EFFECTIVE  S«EEP  ANGLE  IS  TAKEN  TO  BE  30.00 


SEPARATION  DETECTED  IN  TURBULENT  B.  L*  CALC  AT  X/C*  0.96/ 
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SEPARATION  detected  in  turbulent  b 


B.L.  CALC.  TERMINATES  AT  THIS  POINT 


BOUNOARY  LAYER  CALCULATION  AT  STRIP  23  IN1T1A1EO 
EFFECTIVE  SiEEP  ANCLE  IS  TAKEN  TO  BE  30.00 


bOONOABT  LAVER  CALCULATION  AT  STRIP  -23  INITIATED 
EFFECTIVE  SREEP  ANCLE  IS  TAKEN  TO  BE  30.00 


TO  I A*.  VISCOUS  OWI.  COEFFICIENT  IS  0.7v0£-02  TOP  VISCOUS  DRAG  IS  0.396C-02  BOTTOM  VISCOUS  DMAS  IS  0.3BAE-B2 


C'jAi'Vi  l*v  0.3*VU-O3  0.3I3«-0«  ?2  I It,  0.207l£-0|  0.««49C-&3  21  I It  «3 
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NEB  DISPLACEMENT  THICKNESS 
AT  STATION  19 
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CODE  DESCRIPTION 

1.  INTRODUCTION 

Experience  has  shown  that  large  computer  programs  are  continuously  being 
revised.  This  occurs  because  users  continually  demand  different  types  of  infor- 
mation from  the  program  and  various  sections  of  the  code  require  revision  as 
new  theories  are  developed.  In  this  part  of  the  volume,  the  details  of  the 
program  are  presented  in  order  to  minimize  the  difficulty  of  revising  the  pro- 
gram. After  an.  overall  description,  the  detailed  description  of  the  COMMON 
BLOCKS,  Tape/Disc  i/O,  and  the  subroutines  are  presented.  The  graphics  package 
is  described  separately  since  it  has  been  maintained  as  a separate  package  and 
the  details  of  this  portion  of  the  program  will  necessarily  be  site  dependent. 

2.  AN  OVERVIEW  OF  THE  PROGRAM 

The  program  was  developed  on  the  CDC  7600  computer  located  at  the  NASA 
Ames  Research  Center.  This  computer  has  a "small  core"  of  160K  octal  which  is 
intended  to  be  used  for  numerical  calculations . A "large  core"  is  available 
for  block  storage  of  data.  Large  core  size  is  essentially  unlimited.  These 
features  control  the  arrangement  of  the  program.  The  IBM  version  of  the  program 
documented  in  this  volume  makes  some  concessions  in  storage  space  required  in 
order  to  remain  as  similar  to  the  CDC  version  as  possible.  This  allows  for  easy 
conversion  of  any  further  updates  generated  on  the  baseline  program  being  used 
at  NASA  Ames.  The  program  resides  in  the  "UPDATE"  format  on  CDC  systems.  Con- 
version from  CDC  to  IBM  is  then  performed  automatically  by  inserting  a special 
"IBM"  ident  set  of  updates,  so  that  the  necessary  modifications  are  made  and 
the  UPDATE  source  file  created  can  be  used  to  generate  a tape  or  card  deck  for 
an  IBM  program.  Level  2 (or  large  core)  storage  in  CDC  becomes  part  of  the 
normal  core  storage  in  the  IBM  version,  leading  to  a large  cobe  requirement. 
However,  this  is  precisely  the  type  of  job  for  which  the  IBM  operating  systems 
with  the  VS  feature  are  designed  to  handle.  We  expect  that  this  background 
information  will  be  helpful  to  those  users  interested  in  actually  manipulating 
and  revising  the  program. 

A single  main  program  controls  the  computation.  Figure  1 shows  the  flow 
of  the  program.  Most  of  the  computation  setup  is  sequential  with  the  only  loops 
in  the  main  program  used  to  iterate  between  the  fine  and  crude  grid  solutions 


for  the  potential,  and  a loop  to  iteratively  determine  the  viscous  effects. 

After  this  iteration  procedure  is  completed,  the  pressure  distribution  and  the 
resulting  force  distribution  is  computed,  the  solution  is  stored  for  future 
use  if  requested  and  the  program  stops. 

The  final  program  is  a combination  of  the  basic  inviscid  program  with  an 
infinite  yawed  wing  boundary  layer  program  called  STRIPK,  which  is  the  standard 
boundary  layer  subprogram  employed  in  a number  of  codes  at  Grumman.  STRIPK 
itself  is  composed  of  separate  programs  to  compute  laminar  and  turbulent  bound- 
ary layers.  The  laminar  program  is  simply  a compressible  version  of  the  method 
of  Thwaites.  The  turbulent  boundary  layer  is  computed  by  the  modified  chord 
method,  which  is  based  on  the  widely  used  program  by  Bradshaw  and  co-workers. 

Hie  program  that  provides  the  interface  between  the  inviscid  solution  and  the 
boundary  layer  calculation  is  called  VISCFL.  This  routine  also  provides  the 
local  strong  interaction  treatments  at  the  trailing  edge,  and  for  shallow  sep- 
arations also.  VISCFL  and  STRIPK  both  use  a number  of  interpolation  routines 
that  are  basically  a part  of  the  inviscid  program. 

Subroutine  Murman  is  called  directly  from  SOLVE  and  is  operated  essentially 
independently  of  the  weak  interaction  and  trailing  edge  separation  effects, 
which  are  computed  in  VISCFL. 

The  program  also  contains  some  routines  associated  with  a previous  version 
which  could  treat  mid-mounted  axisymmetric  fuselages  more  precisely  than  the 
BCSS.  Although  this  option  is  not  available  in  the  current  code,  the  remnants 
of  this  capability  have  been  left  in  tact  in  order  to  allow  code  modification 
along  these  lines  if  the  user  desires  to  do  so.  The  routine  TOPBOD  could  be 
used  to  replace  the  body  slopes  with  wing/ slopes  ^n  the  top  of  the  body.  This 
subroutine  is  not  used  in  the  present  version  because  the  fuselage  fairing  is 
not  properly  accounted  for  using  TOPBOD. 
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Common  / 

► tsr.nr  / 

ZL«L 

9 

Z44U 

9 

TmIST(IO)  , 

1 

mbtl  f in, «o) 

9 

NBCUf 10,40) 

LEVEL  2, 

7L*L 

CO“Mns  / 

lamps  / 

°F  (20,30, 

9P  ) 

9 

r>J*  1 ( 10,40) 

9 

1 

njK2(iO,4o) 

9 

rjKido.oo) 

9 

2 

nJK4f  jn,4ot 

9 

njKS(10,40) 

9 

1 

nj«b( jn,«0t 

9 

ojk7(1o,4u) 

$ 

4 

f'J*ft(l''.90) 

9 

PJ*9CiP,90) 

9 

b 

ojk i n ( io, 

90 

9 

nj*  11  (30,90) 

LfcVtl  2, 

»F 

CumhOn  / 

laugx  / 

PC  1 20 , 2u, 

iO) 

9 

DJK  I Ox ( 20 , 30  ) , 

1 

OJY 1 1 x(20 

, 10) 

9 

r>J«lX(?0,10) 

LEVEL  2, 

PC 

Common  / 

I n t r m / 

XI f 90) 

0 

FTA(IO) 

9 

ZT(20)  , 

XJN(90)  , 

1 

XII  (40) 

0 

XIC(4L) 

9 

X I 9 ( 9 0 ) , 

EULtJO)  « 

2 

XTACtiO) 

0 

f TAK(IO) 

9 

cufu  , 

CUFL  , 

1 

?C  vo 

0 

?LVL 

9 

Z«vl  , 

ZCVL  , 

4 

POl'Mfin) 

0 

E OHM  fill) 

9 

XmTn  . 

XmA  X , 

b 

VM»x 

0 

Zma  x 

9 

VMJN  , 

Zm  t N , 

6 

ZlVij 

0 

7BVU 
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E v tr k / 

X IF  X f 10  ) 

0 

ElAXf20) 

9 

ZTX ( 20 ) • 

XINX(IO)  , 

1 

XII  «(iO) 

0 

«icxr io) 

9 

XIRX(IO)  , 

FTALX(IO)  , 

2 

FT6CX(2u) 

0 

E T»RX(20) 

9 

XMtNX  , 

XH  A X X , 

1 

V>-A  XX 

0 

Zmaxx 

• 

VMTNX  , 

ZMtNX  , 

4 

FlVL> 

0 

Zmvl  x 

9 
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0 

ZCVoX 
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Ctx  , 

EMROX  , 

2 

FNBxUOOO), 

C H X 

9 

«SDUX  , 

«snxt  moo) 

LEVtL  ?, 

rtf 

COMMON  / 

label  / 

title  l A* ) 
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YmMB ( 90 ) , 

2 

N'UCL 
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9 
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J 
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9 
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9 
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• 
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9 
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2 
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T 

Common  /VA*2/ 

T(^0,iO) 
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LEVEL  2, 
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Common  / 

v*»opt 
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Common  / 
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1 
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2 
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xtpnt  , 

X)PN"  . 
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J 
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« 
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L*Bl  Tfc 

LOGICAL 

T STOP 
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/ 
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1 

AECBL2  , 

XI  . 

XO 
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VTSCUM 

/ 

OZI  C 90 1 , 

020(50 ) , 

ql(so)  , 

Ou(SO)  , 

1 

7U(B0)  , 

Zu(bO)  • 

DDS)L(liO), 

DOSTU(lbO) , 

2 

SCETU")  , 

SCFB(IO)  , 

CFExL(JV)  » 

CEFXO(SO)  , 

S 

OoOSTUf JO, So)  . 
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X 

fpsn*i(20), 

EPSNN2(10J , 

CP OX  I ( 20 ) , 

CPLKl(20)  , 

5 

CPOx?(?0)  , 

CPLx2(201  , 

DELUX 1(20), 

DELLX 1(20), 

* 

f)ELuX2f20), 

0ELL*2( 20) , 

CLOGC20)  , 

IPS1 X{20)  , 

7 

FPS2X(20)  , 
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t 

ITEX(JO)  , 

e 

rpiufso)  , 

FTAx(lO)  , 

CPVu(ISu)  , 

CPTLC50)  , 

9 

CPVLPM51), 

SBBaI  (ISO), 

DEL  SL ( 1 SO ) , 

CFVL(ISO)  , 

A 

cfvunxw)  , 

ntLSTU(50) , 

CF7LMX0)  , 

RELSTH50) , 

B 

C *n ( 2 ) , 

C»l  (2)  , 

PUT25)  , 

PL ( 25)  . 

c 

PELSU(ISO), 

CF  ZU 1 150)  . 

CPVLdXOl  , 

SBBAUt ISO) , 

0 

CPVuP(15<l) 

LEVEL  2, 

0 21. 

Common  / 
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INDEX  / 
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• KMAX 
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9 

KTMJ 

9 

1 
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. HTTP) 

. JmLE 

9 

JtE ( 30 ) 

9 

2 

J«Tt 
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, LmInGL 

9 
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9 

3 

jMAXl 

, XMAX1 

, LMAX! 

9 

krout 

9 

4 
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Common 

/ 

INDEX*  / 
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, kmaxx 

, LMAXX 

9 
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9 

l 

KTTPX 
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9 

JTEX (20) 

9 

2 

1 wNOIJX 

# L“NUIX 

. JMAXX1 

9 
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9 

3 

L M A X X I 

, kroqtx 

, JP1X 

COMMON 

/ 
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JE  * { 30 » 40 ) 

. he  X ( 30 ) 

. LEX(20) 

9 
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I 

P YE  X ( 30  ) 

, O2Ex(20) 

, KIN(JO) 

9 
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10)9 

2 

UN  (20) 
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9 

KINB(20) 

9 

3 
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, 0ZInB(20) 

9 

JINb(20) 

9 

4 

JINKh1 (20, 

10) 

, KEXBC30) 

9 

LEXB(20) 

9 

5 

OYE  XB(30) 

, OZtxB(20) 

< JCON 

9 

JCUP 

LEVEL  2 

i 

JEX 

COMMON 

/ 

FLAGS  / 

I0T3K 

. TSAVE 

, IPLOT 

9 

M8HINT 

9 

I 

SOI  V 

, MBCPHT 

, BBCPRT 

9 

BOO  Y 

9 

2 

FC» 

, I8PAN 

# IETnR 

9 

ICPUOH 

9 

3 

EXTmSh 

. PEMtSM 

, IMAPP 

9 

YA* 

9 

4 

TBUmP 

# I VI SC 

. itnist 

9 

IFOILT 

9 

3 

IBOdTn 

, AXISYM 

i area 

9 

IBLOUT 

LOGICAL 

Ti)lSK 

. TSAvF 

, TPLOT 

9 

NgHINt 

9 

1 

SOL  V 

# HBCPPT 

# BUCPPT 

9 

BODY 

9 

2 

FCB 

« ISPAN 

# IEINP 

9 

ICPUOH 

9 

3 

EXTM9H 

, PtMfcSH 

, IMAPP 

9 

YAM 

9 

4 

TbI'mP 

, 1 Vise 

* ! 1*1  ST 

9 

IFOILT 

9 

5 

IBHOIn 

# AXISYM 

, AREA 

9 

IBIOUT 

COMmOn 

/ 

PAM*  / 

A] 

. A£ 

# AS 

9 

A4 

9 

1 

AS 

, Gamma 

, MACMNO 

9 

Coe 

9 

2 

C2 

, FmE xP(2) 

i CKl(iO) 

9 

Ck2 ( 3o ) 

9 

3 

CK  3 ( 30 1 

, CK4(50) 

. CK5 1 ( 30 ) 

9 

4 

CKS2C 30,90) 

, Ck 1 X ( 30 ) 

9 

Ck2x(30) 

9 

$ 

«lpl 

» *COE 

»EAL 

MACHNO 

Common 

/ 

MEL  A *F  / 

maxit 

. maxitn 

# maxitx 

9 

InCR 

9 

1 

INCMX 

. PTE  ST 

, PTESTX 

9 

RSUH 

9 

2 

b SUB  X 

# Bfcsinjfjo) 

* EPS 

9 

FPSEX 

9 

3 

«l 

# MIX 

. JRP 

9 

KRR 

9 

4 

LHP 

. P I GKL 

• Jt 

9 

HE 

9 

5 

LE 

, EHRUP 

, MOUNT 

9 

N SUP 

9 

6 

IPASS 

Common 

/ 

JUMP  / 

AZ'J 

• A ZL 

# BZU 

9 

BZL 

9 

1 

CZU 

, rzL 

# CUFF 

9 

2 

pjumP(30.90) 

. PCOEF(30, 

90) 

9 

3 

XPtNOXf 30,40) 

. P J MMP X ( 20 

*30) 

LEVEL  2 

# 

A/U 

Common 

/ 

XVCOE  / 

X(30i90) 

, XIY(10»90) 

, xi X t 30  T 

9 

1 

XlYJ(30,9o) 

# XX  f 30  ) 

9 

2 

XIVk(30,90) 

LEVEL  2, 
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VARIABLE  NAME 


common 

/ 

LCO  / 

OEt(90)  , 

nt2(90) 

9 

ntJ(90) 

9 

OH1 (90) 

l 

OM2  C 9 0 1 , 

0hJ(9u) 

9 

nui(90) 

9 

012(90) 

2 

OLSC’O) 

COMMON 

LCOX  / 

r*fc  1 * C 40 ) . 

ot2x( JO) 

9 

OEJX( JO) 

9 

0H1X( JO) 

1 

0m2i(J0)  . 

OHjxt JO) 

9 

OtlXf JO) 

9 

0l2X( JO) 

2 

OLJxfJO)  , 

Da)  (90) 

9 

0*2(90) 

9 

OK J(90) 

Common 

«TNR  / 

VRO()T  , 

*Lf  9 

9 

XIFR 

9 

VT  JP 

1 

XLET  , 

XTFT 

9 

srff 

9 

S»EEP 

2 

MLEI  , 

VLEIC10) 

9 

XLUflO) 

9 

STRUE 

J 

ME  I . 

VTEI(IO) 

9 

XTEI(IO) 

9 

SXPQS 

4 

CWt’OT  , 

8S?AN 

9 

thick ( 1 1 ) 

9 

Zmn&kL 

5 

NRAN  , 

VPU  1 ) 

9 

thetpui) 

9 

must 

6 

vr»iTtm  , 

iNL'Xfl  1 ) 

9 

INLX(U) 

9 

XPClS0.lt) 

r 

ZF(I«0,H). 

* 8“ TMS( i 1 ) 

9 

XMOm 

9 

XLf ( JO) 

e 

XlFm(JO)  , 

CU«U( JO) 

9 

CO«l)K(  JO) 

9 

CUP0IN( 11) 

9 

XTF(JO)  , 

RF  ACT 

9 

CmF  An 

9 

XTF*(J0) 

a 

«SP  , 

NSI 

9 

KXOC 12) 

9 

K X 1 ( 1 2 ) 

B 

wxnu2i  , 

N X 1 (12) 

9 

7X0(12,10) 

9 

7X1(12,10) 

C 

xxnti2»l0). 

«Xt ( 1 2.  )0) 

9 

0 XR  0 ( 1 2 ) 

9 

DXPKI2) 

0 

OxTOU?)  . 

OXTK12) 

9 

ALPHA* 

9 

NflPtE 

E 

NTIPXI  , 

*Lf  »*  t Jo) 

9 

XTF»X(  JO) 

9 

CORO* 

P 

CAV  , 

XQR 

9 

XLF«P( JO) 

9 

XTF*P(  JO) 

6 

kS»ICh 

LEVEL  2 

9 

yroot 

COMMON 

/ 

HO0V1  / 

XnOSE  . 

x ) » IL 

NBIN(2) 

XBIN(2. J5) 

1 

NHCOS  , 

J B UP ( 2 ) 

JBDn(2) 

JnOSF 

2 

J1AJL 

AI.PHAB 

NdP  T S ( 90 ) 

9(90) 

J 

KBMXfRU)  , 

l MM 

LMX 

AFK( lb) 

« 

9FK(lb)  , 

CFK(lb) 

AFl(lb) 

BFLtlb) 

b 

rFL(ib)  , 

A Bl  (1b) 

HBL (lb) 

CBL(IS) 

6 

ACH?)  , 

"Cl  (?) 

CCL ( 2 ) 

BT7PF 

7 

XRAU(9P)  , 

XRBL  f90) 

02980(90) 

02RBL(9o) 

0 

NR«ll  , 

NHHL 

YRR 

ZRBU 

9 

7N»L  . 

ApMXX ( JO’ 

JnOSEX 

JUILX 

A 

RUT  m(2. AS) , 

YNIlJjF  X 

X T * IL  X 

7ijR 

common 

/ 

HPLV2  / 

*x(jn,9o)  . 

? Yf JO, 90) 

►Z( JO, 90) 

1 

«rtOC(  Ji',9o) 

LbU(?0,90) 

L b o ( 2 0 , 9 0 ) 

2 

S'BRTSxI  JO)  , 

l h no(  JO, «0) 

1 

LBI'X(20,  Jo) 

9 

LtJi’X(20,  JO) 

« 

PY»(20» JO) , 

C P S l 2 U , 9 0 ) 

LEVEL  ? 

9 

FX 

COMMON 

/ 

BPDVJ  / 

KMMA*  , 

X0MAXX 

9 

LL«L 

9 

LLBU 

I 

LL«L* 

1 CBUX 

9 

«Btu( J0,9U) 

2 

MBS  , 

PpCL ( JO , 90 ) 

9 

J 

RRCuX(20,  Ji>) 

9 

RbCLX(?0,JO) 

4 

OrRCu  . 

ORHCl 

l 

ORHCUX 

9 

DhBCLX 

b 

SAI  pM(90)  , 

8aLP“x( J") 

ClIMMO* 

/ 

BOUVUC  m 

T«U0  . 

rpt  o 

9 

It)  8 IDE 

9 

E TAt)L'(  10) 

1 

rTABL(IO)  , 

7HPOI20) 

9 

* RR3 

9 

XRBS(IOO) 

level  2 

9 

KH'AX 

COMMON 

/ 

SffiACM  / 

“of 2", Jo, 2) 

9 

POLO ( 20 , Jo 

9 

>) 

1 

VC2(20. Jo,?) 

9 

VC (20, Jo, 2) 

LEVU  ? 

» 

“u 

Common 

/ 

PARRY  / 

P(?0. JO.U) 

Common 

/ 

ULL  / 

xjn(Oo)  , 

f T*U( JP) 

9 

ZTn(20) 

9 

PJUMP0( JO) 

1 

LBOU(2P,90) 

9 

Lb0u(20,90) 

2 

PJOYPt(JO), 

«bmxo(9o) 

9 

JMO 

9 

KMO 

1 

l mo  , 

J T * ILL) 

9 

JnOSFU 

9 

L »UU 

LOGICAL 
LEVEL  2, 
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COfrCN 

COMMON  I vTRAn? 


LEVEL  l, 

common  / src  / 

LOGICAL 

common  / S7T  / 


LEVEL  2, 


VARIABLE  NAME 

> OELUP(BO)  * 
ODU(«0)  I 

OSLL<6P)  , 
DDP8U  C0O)  , 
CPHJ (80)  , 

CPi'i*(ao)  , 

#M*  , 

oel  up 


3(T 

FRkLU 


ntLUN(eo)  , ou(BO)  , dl(80)  » 

ODL(SO)  , XOHT(SO)  , 0SLU(«0)  , 

Out  ( SO ) I OLt  (SO)  , OOOSUKttO), 

0008110(80  ) i ODDBLO(BO)  * XOUTOK80), 

CPU (80)  , CPUO(«0)  . CPLO(80)  , 

CPUX(SO)  . CPUOX(SO)  , CPLOX(BO) 


0L(80)  , 
OSLU(SO)  , 
OOOSUKBO), 


CPUX(SO) 
N HOLD  1 


CPL0X(80) 


* P ILKLU 


» ICARD 


*001(50)  , NX  , StPL(«0) 

731  POG ( JO ) , iSLPTfc(JO),  XFIlOG 
0U08L ( JO#bO) 

XOUT 


• K8BL 
, SEPmIN 


COMMON  / BAVCOM  / *8EP(«)  , OELSTL(50),  CPL2(50)  , 08T(50) 


LEVEL  2, 

COMMON  /SAVtS/ 
LEVEL  2, 


ST (SO) 
XSEP 

NXO( Jo) 

NXd 


, xuL')n(Jo#50) 


COMMON  /BKjNFR/  CF  V I SC 


# CFTL 


Common  /C POD/ 
LEVEL  2, 


rPO0i'(  Jo  ,50)  ,CP()OL(  JO, SO) 
f POOH 


COMMON  /LEVJX/ 


OXUCRO)  , o XL  ( RO ) , X0UM{90)  , X0I/h2(9O)  , 

XO'tMj(Qo)  , Xl)UM«(90)  » XOUM5(RO)  • 

X|)Um6(21)00) 


c.  Detail  Description  of  Each  Common  Block 


COHHON  MNEMONICS 

see  canon  in  program  for  list  of  mnemonics  and  dimension 


COHHON 

VARIABLE 

SOURCE 

DESCRI  PTION 

INTER 

XI 

SETUP 

(XIN  (J)-XO)  /DX  transformed  XIN 
coordinates  at  mesh  points 

ETA 

INPUT 

PINGRD 

ETA  coordinate  at  mesh  pts. 

ZT 

INPUT 

PINGRD 

ZT  coordinate  at  mesh  pts. 

XIN 

INPUT 

SETUP 

X mesh  along  centerline 

XIL 

TCOEP 

1/(XI(J)-XI  (J-  1)  ) coeffs.  for 
first  diffs.  with  respect  to 
point  XI 

XIC 

TCOEP 

2/  (XI  (J*  1) -XI  (J-1)  ) coefs.  for 
first  diffs.  with  respect  to 
point  XI 

XIR 

TCOEP 

1/  (XI  (JM)-XI  (J)  ) coefs.  for 
first  diffs.  with  respect  to 
point  XT 

ETAL 

TCOEP 

1/(ETA(K) -ETA(K-I)  ) coefs.  for 
first  diffs.  with  respect  to 
point  ETA 

ETAC 

TCOEP 

2/(ETA(K*1) -ETA(K-I)  ) coefs.  for 
first  diffs.  with  respect  to 
point  ETA 

STAR 

TCOEP 

1/(ETA  (K  ♦ 1)  - ET  A (K) ) coefs.  for 
first  diffs.  with  respect  to 
point  ETA 

COEU 

TCOEP 

PORCE 

-2/ (H2*2*H  1)  ZT  diff.  coeffs. 
for  using  surface  boundary 

COEL 

TCOEP 

FORCE 

2/ ( H 1 ♦ 2 * H 2 ) ZT  diff.  coeffs. 
for  using  surface  boundary 

ZCVU 

TCOEP 

ZLVU+ZRVU  ZT  diff.  coef.  used 
to  solve  for  vorter  sheet  at 
downstream  boundary 

ZLVL 

TCOEP 

DZ  1 / (ZT  (LHINGL)  — ZT  (LWINGL-  1)  ) 

ZT  diff.  used  to  solve  for 
vortex  sheet  at  downstream 
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ZRVL 

TCOEF 

ZCVL 

TCOEF 

PDOR 

IC 

SOLTE 

OOTP 

EDO  n 

SOLVE 

OOTP 

xniN 
X H AX 
YRAX 
ZR  AX 
IRIS 
ZHIR 


ZLVO  TCOEF 

ZRVO  TCO  EF 

EXTER  HEX  SETOPX 

ETAX  INPOT 

CRDSRD 

ZTX  INPOT 

CRDGRD 

XINX  IN  POT 

XI  LX  TCOEFX 

XICX  TCOEFX 

XI  RX  TCOEFX 

ETACX  TCOEFX 

ETALX  TCOEPX 


boundary 

DZ1/  (ZO-ZT  (LWINGL)  ) ZT  diff. 
coeff.  used  to  solve  for  vortex 
sheet  at  downstreaa  boundary 
ZLVL+ZBVL  ZT  diff.  coeff.  used 
to  solve  for  vortex  sheet  at 
downstreaa  boundary 
PJOHPT(K)  values  of  potential 
juap 


ETA  (K) 

not  used 
not  used 
not  used 
not  used 
not  used 
not  used 

DZ1/(ZT(LWING0)-Z0)  ZT  diff. 
coeff.  used  to  solve  for  vortex 
sheet  at  downstreaa  boundary 
DZ 1/  (ZT  (LRINGOM)  -ZT(LRINGU)  > 

ZT  diff.  coeff.  used  to  solve  for 
vortex  sheet  at  downstreaa 
boun  dary 

(XINX  (J)  — XO)  /CORDX  transforaed 
XINX  coords,  at  aesh  points 
ETA  coordinate  at  aesh  pts. 

ZT  coordinate  at  aesh  pts. 

X aesh  along  centerline 
1/(XIEX  (J)-XIEX  (J-1) ) coeff. 
for  1st  diff.  with  respect  to 
point  XIEX 

2/ (XI  EX  (J^I)-XIEX  (J- 1) ) coeff. 
for  1st  diff.  with  respect  to 
point  XIEX 

1/ (XIEX  (J*  1) -XIEX  (J)  ) coeff. 
for  1st  diff.  with  respect  to 
point  XIEX 

2/  (ETA  X (K*  1)  -ETAX  ( K—  1 ) ) coeff. 
for  1st  diff.  with  respect  to 
point  ETAX 

1/  (ETAX  (K)  -ETAX  (K-1)  ) coeff. 
for  1st  diff.  with  respect  to 
point  ETAX 
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1 


C OH BOH 

VARIABLE 

SOURCE 

DESCRIPTION 

STAR* 

TCOEPX 

1/  (ETAX  (K*  1) -ETAX(K-I) ) coeff. 
for  1st  diff.  with  respect  to 
point  ETAX 

xbinx 

not  used 

XHAXX 

not  used 

THAXX 

not  used 

ZB  A XX 

not  used 

THINX 

not  used 

ZBINX 

not  used 

ZLVLX 

TCOEPX 

DZ1/  (ZTX  (LHINGLX  ) - 
ZTX (LHNGLX-1) ) 

ZTX  diff.  coeff.  used  to  solve 
for  vortex  sheet  at  downstream 
boundary 

ZCVLX 

TCOEFX 

ZLVLX+ZRVLX  , ZTX  diff.  coeff. 
used  to  solve  for  vortex  sheet 
at  downstream  boundary 

ZRVLX 

TCOEPX 

DZ1/  (ZO-ZTX  (LHINGLX) ) ZTX  diff 
coeff.  used  to  solve  for  vortex 

sheet  at  downstream  boundary 

ZLVOX 

TCOEPX 

DZ1/ (ZTX  (LNINGUX) -Z0)  ZTX  diff. 
coeff.  used  to  solve  for  vortex 

sheet  at  downstream  boundary 

ZRVUX 

TCOEPX 

DZ1/  (ZTX  (LIINGUXM)- 
ZTX  (LHINGUX)  ) 

ZTX  diff.  coeff.  used  to  solve 
for  vortex  sheet  at  downstream 
boundary 

ZCVUX 

TC OEFX 

ZLVUX+Z  R VU  X 

ZTX  diff.  coeff.  used  to  solve 
for  vortex  sheet  at  downstream 
bounda  ry 

IHDEX 

JB  A X 

INPUT 

number  of  streamwise  (XI)  mesh 
poin  ts 

MAX 

INPUT 

number  of  span  wise  (ETA)  mesh 
points 

FIHGRD 

LB  AX 

INPUT 

number  of  vertical  (ZT)  mesh 
points 

FINGRC 

KTH  1 

SETUP 

KTI P- 1 

KTIP 

INPUT 

first  ETA  mesh  pt.  beyond  wing 
tip 

PINGRD 

KTIP1 

SETUP 

KTIP+1 

JHLE 

SETUP 

index  of  XI  point  at  wing  root 
leading  edge 

PORCE 

L28l 

. . jj 


conhon 


VAR IABLE 


SOURCE  DESCRIPTION 


INDEX! 


JNTE 

SETUP 

index  of  XI  aesh  point  at  wing 
root  trailing  edge 

JLE 

HINGCO 

index  of  XI  aesh  point  at  wing 
leading  edge 

PORCE 

JTE 

SETUP 

index  of  XI  aesh  point  at  wing 
trailing  edge 

LUINGL 

SETUP 

LMINGU-1 

LHINGU 

INPUT 

ZT  aesh  index  of  first  pt.  above 
wing  plane 

PINGRD 

JNAX1 

SETUP 

JHAX-1 

KN  AX  1 

SETUP 

KHAX- t 

LN  AX  1 

SETUP 

LN  AX- 1 

KROOT 

INPUT 

index  of  ETA  aesh  point  at 
wing/body  juncture 

GEONB 

JP1 

SOLVE 
OUT BOD 

JNAXX 

INPUT 

number  of  streaawise  (XINX) 
aesh  points 

KNAXX 

INPUT 

nunbec  of  spanwise  (ETAX) 
aesh  points 

CRDGRD 

LN  AXX 

INPUT 

number  of  vertical  (ZTX) 
aesh  points 

CRDGRD 

KTH1X 

SETUPX 

CRDGRD 

KTIPX-1 

KT  IPX 

INPUT 

first  ETAX  mesh  pt.  beyond  wing 
tip 

CRDGRD 

KTIP1X 

SETUPX 

KTIP  X*  1 

JLEX 

SETUPX 

index  of  XIEX  aesh  point  at 
wing  leading  edge 

JTEX 

SETUPX 

index  of  XIEX  mesh  point  at 
wing  trailing  edge 

LNNGUX 

INPUT 

ZTX  aesh  index  of  first  pt. 
above  wing  plane 

CRDGRD 

LWNGLX 

SETUPX 

LNNGUX-  1 

JNAXX  1 

SETUPX 

JNAXX-  1 

KNAXX  1 

SETUPX 

KHAX  X— 1 

LN AXX1 

SETUPX 

LNAXX-1 

KROOTX 

INPUT 

index  of  ETA  aesh  point  at 
wing/body  juncture 

GEOBRX 

JP  IX 

SOLVEX 

JP1 
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COHHON 

V ARI  ABLE 

SOURCE 

DESCRIPTION 

FLAGS 

IDISK 

INPUT 

T;  start  f r on  old  solution 
stored  on  unit  10 

ISATE 

INPUT 

SOLVE 

SOLVE! 

ISA VE=T  saves  data  on  unit  11 
for  future  restart 

I PLOT 

INPUT 

T;  to  save  data  on  unit  12  for 
plotting  purposes 

ns  HINT 

INPUT 

T;  initial  conditions  inter- 
polated from  old  coarser  aesh 
solution;  IDISK  aust  be  true  if 
HSHINT  is  true 

SOL  V 

INPUT 

T;  for  coaplete  execution;  F: 
stop  before  solve  loop  is 
entered 

WBCPRT 

INPUT 

T;  to  output  wing  surface  slopes 

BBCPRT 

INPUT 

T;  to  output  body  boundary 
inforaation 

BODT 

INPUT 

T;  for  wing-body  coabination; 

F;  skip  input  for  body  geometry 
and  body  aesh  pts.  (i.e.  wing 
alone  case) 

FCR 

INPUT 

T;  for  fully  conservative  aethod 

IS  PAN 

INPUT 

T;  for  inclusion  of  extra 
spanwise  terms  in  equation 

I FI  NR 

INPUT 

T:  read  in  fine  meshes 

IC  BOOR 

INPUT 

F:  read  in  coarse  aeshes 

EXT  HSU 

INPUT 

T;  to  compute  using  embedded 
grid  systea;  F;  to  coapute  with 
transformed  interior  aesh  alone 

RENESH 

INPUT 

T;  coapute  an  initial  solution 
with  an  initial  coarse 
transformed  aesh 

IH  APR 

INPUT 

T;  read  in  XI  = 0 and  XI=1  line 
mappings 

YAH 

INPUT 

T;  yawed  wing  option 

ibohp 

INPUT 

T;  Nuraan  buap  option  used 

IVISC 

INPUT 

T;  full  viscous- inviscid 
calculation  performed 

F;  only  inviscid  calculation 
done 

ITHI  ST 

INPUT 

T;  separate  twist  table  input 

IFOILT 

INPUT 

see  input  description 

IBOOIN 

INPUT 

see  input  description 

AXISYN 

INPUT 

see  input  description 

AREA 

INPUT 

see  input  description 

IBLOOT 

INPUT 

see  input  description 

COH SON 


VARIABLE 


SOURCE  DESCRIPTION 


PARK 


RELAXP 


A1 

TCOEF 

1-  (HACHNO)  **2 

A2 

TCOEF 

(GAMMAM)*.5*HACHNO**EMBXP(1) 

A3 

TCOEF 

A1 

A4 

TCOEP 

1-  (GAMMA-1)  *.5*H ACHNO**2 

A5 

TCOEP 

(GAMMA-  1)  * MACH  NO**2 

GAMMA 

INPUT 

specific  heat  ratio 

MACHNO 

INPUT 

free  stream  Mach  nuaber 

COE 

TCOEF 

-2,  coefficient  cf  potential  in 
Cp  calculation 

C2 

TCOEF 

1 

EMEXP 

INPUT 

EMEXP ( 1)  :Hach  number  exponent  in 
nonlinear  term;  EMEXP  (2)  :Mach 
nunber  exponent  in  Ming  boundary 
condition 

CK  1 

TCOEF 

A1/(fine  mesh  chord)  **2 

CK  2 

TCOEF 

A2/(fine  mesh  chord)  **3 

CK  3 

TCOEF 

A3 

CK4 

TCOEF 

-A4 

CK51 

TCOEF 

A5*CI  = A5/(fine  mesh  chord) 

CK52 

TCO  E P 

A5*.  5*XIC  (J)/(CORD  (K*1) 

♦ COFD(K) ) ; CORD  = fine  mesh 
chord 

CK  1 X 

TCOEFX 

A1/(coarse  mesh  chord)  **2 

CK2X 

TCO  E FX 

A2/(coarse  mesh  chord) **3 

BLDL 

VISCPL 

lower  surface  wing  boundary 
cond  ition 

VCOE 

WINGCO 

HACHNO**EHEXP(2) 

MAX  IT 

INPUT 

maximum  nuaber  of  iterations 
for  current  run 

BAXITN 

INPUT 

number  of  iterations  on  fine 
mesh 

HAXITX 

INPUT 

nuaber  of  iterations  on  coarse 
mesh 

INCR 

INPUT 

print  increment  for  fine  mesh 
iterations 

INCRX 

INPUT 

print  increment  for  coarse 
mesh  iterations 

RTEST 

INPUT 

convergence  criterion  of  max 
potential  error 

RSUB 

INPUT 

subsonic  relaxation  parameter 
(1.8)  for  fine  mesh 

RSUBX 

INPUT 

subsonic  relaxation  parameter 
for  coarse  mesh  (1.8) 

RESIDJ 

SOLVE 

PJNEN(K)-PJUHP(K,J)  ; potential 
jump  error 

EPS 

INPUT 

coefficient  of  PXT  in  fine 

""" 


COMMON 


VARIABLE 

SOURCE 

DESCBI PTION 

■esh  calculation 

EPS  EX 

INPUT 

coefficient  of  PXT  in  coarse 
mesh  calculation 

WIX 

MAIN 

1/RSUBX 

HI 

MAIN 

1/RSUB 

JRD 

SOLVE 

SOLVEX 

DBNOT 

DBNDTX 

location  in  XI  and  XIEX  meshes 
of  largest  residual 

KRD 

SOLVE 

SOLVEX 

DBNDY 

DBNDYX 

location  in  ETA  and  ETAX  meshes 
of  largest  residual 

LRD 

SOLVE 

SOLVEX 

DBNDY 

DBNDYX 

location  in  ZT  and  ZTX  meshes 
of  largest  residual 

BIGBL 

SOLVE 

SOLVEX 

DBNDY 

DBNDYX 

ABSD ; largest  residual 

JE 

SOLVE 

SOLVEX 

DBNDY 

DBNDYX 

J;  location  of  largest  error 
in  XI 

and  XIEX  meshes 

KE 

SOLVE 

SOLVEX 

DBNDY 

DBNDYX 

K;  location  of  largest  error 
in  ETA 

and  ETAX  meshes 

LE 

SOLVE 

SOLVEX 

DBNDY 

DBNDYX 

L;  location  of  largest  error 
in  ZT 

and  ZTX  meshes 

ERROR 

SOLVE 

SOLVEX 

DBNDY 

DBNDYX 

ARESID;  largest  error 

KOUNT 

SOLVE 

SOLVEX 

count  of  consecutive  iterations 
on  fine  mesh 
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CONHON 


VARI  ABLE 


SOURCE  DESCRIPTION 


’ 


J 

MING 


! 


i 


NS  UP 

SOLVE 

SOLVEX 

number  of  supersonic  points  in 
flow  fie''! 

IPASS 

MAIN 

flag  used  in  computing  with 
RENESH  * T option 

TROOT 

INPUT 

Y coordinate  of  root 

X LPR 

INPUT 

X coordinate  of  leading  edge  at 
root 

XT  ER 

INPUT 

X coordinate  of  trailing  edge 
at  root 

YTIP 

INPUT 

Y coordinate  of  tip 

XL  ET 

INPUT 

X coordinate  of  leading  edge 
at  t ip 

XTET 

INPUT 

X coordinate  of  trailing  edge 
at  tip 

NLES 

number  of  segments  input  to 
describe  the  leading  edge 

NLEI 

INPUT 

number  of  Y,X  pairs  defining 
leading  edge  segment 

YL  El , X I,E  I 

INPUT 

Y,X  pairs  defining  the  leading 
edge  seg  me  nt 

NTEI 

INPUT 

number  of  Y,X  pairs  defining 
the  trailing  edge  segment 

YTEI, XTEI 

INPUT 

Y,X  pairs  defining  the  trailing 
edge  segment 

CROOT 

SETUP 

XTEF-XLER 

SSPAN 

SETUP 

YTIP-YROOT 

NP  AN 

INPUT 

number  of  span  stations  at 
which  airfoil  ordinates  are 
input 

YP 

INPUT 

fraction  of  semispan  at  which 
airfoils  are  defined 

THETP 

INPUT 

twist  angle  in  degrees;  leading 
edge  up=YP  positive 

NTNST 

INPUT 

YTWST 

INPUT 

INUX 

INPUT 

number  of  upper  surface 

SCALE 

airfoil  ordinates  L.E.  90 

IN  LX 

INPUT 

number  of  lower  surface 

SCALE 

airfoil  ordinates  L.E.  90 

XF 

INPUT 

SCALE 

ZF 

INPUT 

SCALE 

ZP(I,N)/CHRD 

KSNTHS 

INPUT 

number  of  times  computed 
surface  slopes  are  smoothed 

X HON 

INPUT 

moment  reference 

XL  E 

SETUP 

x location  of  mesh  wing  leading 

; 
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COMMON 

VARIABLE 

SOURCE 

DESCRIPTION 

edge  in  fine  mesh 

XLEV 

SETUP 

x location  of  actual  wing 
leading  edge 

CORD 

SETUP 

XTE  ( K) -X  LE  (K)  ; mesh  chord  in 
fine  aesh 

CORDR 

SETUP 

XTEN  (K)-XLfc'H  (K)  ; actual  wing 
chord 

COR  DIR  '■ 

SETUP 

chord  at  input  coordinate 
stations 

XTE 

SETUP 

x location  of  mesh  wing 
trailing  edge  in  fine  aesh 

REACT 

INPUT 

Regiels  rule  factor  for 
aodified  slopes 

CREAM 

SETUP 

aean  chord  of  reference  wing 

XTER 

SETUP 

x location  of  actual  wing 
trailing  edge 

NS  0 

INPUT 

BEND 

nuaber  of  segaents  defining 

XI =0  line 

NS  1 

INPUT 

BEND 

nuaber  of  segaents  defining 

XI=1  line 

KX  0 

INPUT 

BEND 

K index  of  outboard  edge  of 

XI=0  segaent 

KX  1 

INPUT 

BEND 

K index  of  outboard  edge  of 

XI=1  segaent 

NX  0 

INPUT 

BEND 

nuaber  of  Y,X  pairs  defining 

XI=0  segment 

NX  1 

INPUT 

BEND 

nuaber  of  Y,X  pairs  defining 

XI  = 1 segaent 

TK0,XX0 

INPUT 

BEND 

Y,X  pairs  defining  XI  = 0 
segaent 

III, XXI 

INPUT 

BEND 

Y,X  pairs  defining  XI  = 1 
segaent 

DXRO 

INPUT 

BEND 

DX/DY  at  inboard  edge  of  XI  = 0 
segaent 

DXR  1 

INPUT 

BENL 

DX/DY  at  inboard  edge  of  XI  = 1 
segment 

DX  TO 

INPUT 

BEND 

DX/DY  at  outboard  edge  of  XI  * 0 
segment 

DXT1 

INPUT 

BEND 

DX/DY  -t  outboard  edge  of  XI  = 1 
segment 

ALPHAS 

MTIPLB 

INPUT 

wing  reference  plane  angle  of 
attack  in  degrees 
always  input  as  0 

I 
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j. 


U 


» 


U 


COHNON 


BODY  1 


V API  ABLE 

SOURCE 

DESCRIPTION 

NTIPXI 

always  input  as  0 

XLEWX 

SETOPX 

x location  of  wing  leading  edge 
in  coarse  iesh 

XTEWX 

SETUP! 

x location  of  wing  trailing  edge 
in  coarse  nesh 

CORDX 

SET  OP 

nesh  root  chord 

XOR 

SETUP 

CA  V 

SETUP 

.5*  (CROOT»CTIP)  ; average  wing 
chord 

SREP 

SETUP 

reference  wing  area 

SWEEP 

SETUP 

leading  edge  sweep  in  degrees 

STROK 

SETUP 

true  wing  planforn  area 

SXPOS 

SETUP 

exposed  wing  planforn  area 

THICK 

INPUT 

thickness  scaling  factor 

ZWNGWL 

HI  N GCO 

wing  waterline 

KSWICH 

WINGCO 

airfoil  clue;  0 = conventional 

1 = supercritical 

XL  E WP 

SETOP 

tangent  of  leading  edge  sweep 

XTEWP 

SETUP 

tangent  of  trailing  edge  sweep 

TNOSE 

INPUT 

GEONBR 

X coordinate  of  body  nose 

XT  AIL 

INPUT 

GEONBR 

X coordinate  of  body  tail 

NBTN 

INPUT 

nunber  of  X,P  pairs  defining 
circular  body 

X BIN, P BIN 

INPUT 

X,R  pairs  defining  circular 
body 

NBO  DS 

INPUT 

nunber  of  segnents  input  to 
define  circular  body 

JBOP 

INPUT 

first  XI  nesh  pt  . index  of 
segnen  t 

JBDN 

INPUT 

last  XI  nesh  pt.  index  of 
segment 

JNOSE 

BAIN 

INPUT 

GEOHBR 

XI  mesh  pt.  index  of  body  nose 

JT  AIL 

BAIN 

INPOT 

GEONBR 

XI  mesh  point  index  of  body 
tail 

ALPHAB 

INPUT 

tody  reference  line  angle  of 
attack  in  degrees 

NBPTS 

GFONB 

nunber  of  mesh  pts.  defining 
body  cross  section 

R 

GEOBB 

RS  (NX) 

KB  NX 

INPUT 

array  of  indices  of  naxinun  ETA 

GEOBB 

nesh  pt.  on  body 

LflN 

GEOBB 

index  of  ninimun  ZT  pt.  on  body 
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C ONNON 


VARIABLE 

SOURCE 

DESCRI  PTION 

LUX 

GEONB 

index  of  maximum  ZT  mesh  pt.  on 
body 

AFK 

GEOHB 

-BPK (K) -CFK (K)  ; extrapolation 
coeff.  for  body  surface 

BP  K 

GEOtl  B 

PK/ (DKP 1*DKP2) ; extrapolation 
coeff.  for  body  surface 

CPK 

GEOHB 

-DKP 1/ (DKP2*DK)  ; extrapolation 
coeff.  for  body  surface 

AFL 

GEONB 

-BFL  (I) -CPL  (I)  ; extrapolation 
coeff.  for  body  surface 

BFL 

GEONB 

Dl/ (DLP1  *DLP2)  ; extrapolation 
coeff.  for  body  surface 

CFL 

GEONB 

-DLP  1/ (DLP2*DL)  ; extrapolation 
coeff.  for  body  surface 

ABL 

GEONB 

-BBL (I) -CBL (I) ; extrapolation 
coeff.  for  body  surface 

BBL 

GEONB 

-DL/ (DLH1*DLN2)  ; extrapolation 
coeff.  for  body  surface 

CBL 

GEONB 

DLH 1 / (DLN2 *DL) ; extrapolation 
coeff.  for  body  surface 

ACL 

GEONB 

extrapolation  coeff.  for  body 
surface 

BCL 

GEOHB 

FORCE 

extrapolation  coeff.  for  body 
sur  face 

CCL 

GEONB 

extrapolation  coeff.  for  body 
surface 

BTYPE 

INPUT 

type  of  body  cross-section 
input,  circular  or  rectangular 

XR  BO 

INPUT 

X location  of  body  slopes 

XFBL 

INPUT 

X location  of  body  slopes 

DZRBU 

upper  body  slopes 

DZRBL 

lower  body  slopes 

NR  BO 

INPUT 

nuaber  of  upper  body  slopes 

NFBL 

INPUT 

number  of  lower  body  slopes 

YR  B 

INPUT 

Y location  of  side  of  body 

ZPBU 

INPUT 

Z location  of  top  of  body 

ZRBL 

INPUT 

Z location  of  bottom  of  body 

KBHXX 

INPUT 

array  of  indices  of  maximum 

GEOBRX 

ETAX  mesh  pt . on  body 

JNOSEX 

INPUT 

GEOBRX 

index  of  XIEX  mesh  pt.  at  body 
nose 

JTAILX 

INPUT 

GEOBRX 

JNAXX;  index  of  XIEX  mesh  pt. 
at  body  tail 

XNOSEX 

GEOBRX 

XINX  (1) 

XT  AIL  X 

YOB 

GEOBRX 

XI NX  (JNAXX) 
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cohnon 

VARIABLE 

SOURCE 

DESCRIPTION 

BOOT  2 

fx 

GEONB 

FXS  (NX)  ♦AOFAB*FZ  (N,  j)  ; slope 

FT 

INPUT 

GEONB 

GEONBR 

-ETA(K)/RP;  slope 

FZ 

GEONB 

-ZT  (L)  /RP;  s lope 

KBOD 

GEONB 

K index  of  body  pts.  (input) 

LBO 

GEOH  B 

GEONBR 

LLBU;  array  of  ZT  indices  on 
upper  body  surface 

LBD 

GEONB 

GEONBR 

LLBL;  array  of  ZT  indices  on 
lower  body  surface 

NBPTSX 

GEOBRX 

NPTS ; no.  of  coarse  nesh  pts. 
lying  on  body 

LBOD 

GEONB 

L index  of  body  pts.  (input) 

LBUX 

GEOBRX 

LLBUX ; array  of  ZTX  indices  on 
upper  body  surface 

LB  OX 

FYX 

CPS 

GEOBRX 

GEOBRX 

LLBLX;  array  of  ZTX  indices  on 
lower  body  surface 

BOOT  3 

KB  SAX 

G EON  PR 

KBS;  index  of  naxinua  ETA  aesh 
point  on  body 

KBNAXX 

GEOBRX 

KBS;  index  of  naxinua  ETAX  aesh 
point  on  body 

LLBL 

GEONBR 

index  of  ZT  aesh  pt.  on  lower 
surface  of  rectangular  body 

LL  BO 

GEONBR 

index  of  ZT  aesh  pt.  on  upper 
surface  of  rectangular  body 

LLBLX 

GEOBRX 

index  of  ZTX  aesh  pt,  on  lower 
surface  of  rectangular  body 

LL  BOX 

GEOBRX 

index  of  ZTX  aesh  pt.  on  upper 
surface  of  rectangular  body 

RBCU 

INPUT 

GEONBR 

TOPBOD 

DXU  (J) ; upper  body  slope  in 
fine  aesh 

RBCL 

INPUT 

GEONBR 

CXL(J);  lower  body  slope  in 
fine  nesh 

RBCUX 

GEOBRX 

upper  body  slope  in  coarse  aesh 

RBCLX 

GEOBRX 

lower  body  slope  in  coarse  aesh 

DRBCt) 

GEONBR 

fine  aesh  diff.  coeff.  for  body 
g.  c. 

DRBCL 

GEONBR 

fine  aesh  diff.  coeff.  for  body 
g.  c. 
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CONNON 


VARIABLE  SOURCE  DESCRIPTION 


BODY BC 


JUMP 


DRBCUX 

GEOBRX 

coai.se  aesh  Jiff.  coefC.  Cor 
body  9.  c. 

DR  BCLX 

KBS 

SALPH 

SALPHX 

GEOBRX 

coarse  aesh  diff.  coeff.  for 
body  9.  c. 

I BUD 

INPUT 

no.  ot  pts.  describing  body 
body  surface 

IB  LD 

INPUT 

1.0.  of  pts.  describing  body 
lover  surface 

IBSIDE 

INPUT 

no.  of  pts.  describing  body 
side  surface 

ETABU 

INPOT 

y locations  along  upper  surface 
of  body  cross- section 

ETABL 

INPUT 

y locations  along  lover  surface 
of  tody  cross-section 

ZBOD 

INPUT 

2 locations  along  side  of  body 
cross-section 

NR  BS 

INPUT 

no.  of  x locations  of  cross- 
sections 

XRBS 

INPUT 

x location  of  cross-section 

AZO 

TC 

extrap,  coeff.  for  pot.  jump 
at  trail  in  g edge 

AZL 

IC 

extrap,  coeff.  for  pot.  jump  at 
trailing  edge 

BZU 

IC 

extrap,  coeff.  for  pot.  jump  at 
trailing  edge 

BZL 

IC 

extrap,  coeff.  for  pot.  jump  at 
trailing  edge 

CZU 

IC 

extrap,  coeff.  for  pot.  jump  at 
trailing  edge 

CZL 

IC 

extrap,  coeff.  for  pot.  jump  at 
trailing  edge 

COFF 

SOLVE 

. S*SQRT  (C2 ) ♦XI.CAD/PI ; 
circulation 

pjuup 

INPUT 

IC 

GCA  LC 

potential  jump  in  fine  mesh 

pcofr 

GCALC 

ETA  coeffs.  used  in  calculating 
PJUNP  (for  circular  body  only) 

KPINDX 

GCALC 

indices  used  in  calculating 
PJUHF  (circular  body  only) 

PJUJ1PX 

INPUT 

WNGBDY 

BODBUT 

potential  jump  in  coarse  mesh 
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COMOH 


VARIABLE  SOURCE  DESCRIPTION 


LABEL 

TITLE 

INPUT 

the  input  case  title 

XYCOE 

X 

SETUP 

physical  X mesh  as  function  of 

XI  and  ETA 

XI  „ 

XIX 

SETUP 

derivative  of  XI  with  respect 
to  Y 

derivative  of  XI  with  respect 
to  X 

XI  Y J 

TCOEF 

(XIY  (K,J)*XIY(K,JO)  ) ♦ . 5 
value  of  XIY  between  2 mesh 
points  in  XI  direction 

XX 

SETUP  X 

physical  X mesh  as  function  of 

XI  EX 

XI  YK 

TCOEF 

(XIY  (K,  J)  ♦ XI Y (K*  1 , J)  ) ♦.  5 
value  of  XIY  between  2 mesh 
points  in  ETA  direction 

LARGN  i 

s foe  storage 

of  fine  grid  potential  array  and 

fine  grid  difference 

coef  ficien' 

ts. 

LARGN 

PF 

IC 

FARBDY 
PHI  BCD 

fine  grid  potential  array 

DJK  1 

TCOEF 

- 25*CI *XIC (J) *ETAC (K) 

DJK2 

TCOEF 

XIYJ (K# 1) *CI *XIC  (J) *XIL  (J) 

DJK3 

TCOEF 

XI YJ (K,J)  ♦ Cl* XIC  (J)  * XIR  (J) 

OJK4 

TCOEF 

XI  YJ  (K,  1)  *.25*XIC(J)  * ETAC  (K) 

DJK  5 

TCD  EF 

XIYJ  (K, J)  *.2  5*XIC  (J)  ♦ETAC(K) 

DJK6 

TCOEF 

XI  YJ  (K  , 1)  *XIYJ  (K,  1) * 

XIC  (J)  * XIL  (J) 

DJK7 

TCOEF 

XIYJ  (K,  J)  ♦XIYJ  (K,J)  ♦XIC(  J) 

♦XIR  (J) 

DJK8 

TCOEF 

Cf1*XIYK  (1 , J)  ♦XIC  (J)  * ET AC  (K)  *CI 

*.  25 

DJK  9 

TCOEF 

CP  *XI  Y K (K,  J)  *XIC  (J)  ♦ETAC  (K)  *CI 
*.  25 

DJK  10 

TCOEF 

CP*XIYK(K,J)  *XIC(J)  ♦ ETAC  (K)  ♦Cl 

♦.  25 

DJK1 1 

TCOEP 

CP*CI*  ETAC  (K) *ETAR  (K) 

LCO  is 

for  storage  of 

fine  grid 

difference  coefficients 

for  the 

elliptic  and 

hy pe  r bo lie 

PHI  terms 

LCO 

DEI 

TCOEF 

XIC  (J)  *XIL  (J)  ; elliptic  coeff. 
of  (PHI) xx  tern 

DE2 

TCOEF 

DEI  (J)  *DE3  (J)  ; elliptic  coeff. 
of  (PHI)  xx  term 

DE3 

TCOEF 

XIC  (J)  * X IR  (J)  ; elliptic  coeff. 

COHNON 


VARIABLE  SOURCE  DESCRIPTION 


DH  1 

TCOEF 

of  (PHI ) xx  tern 

XIC  (J) *XI32;  hyperbolic  coeff. 

DH2 

TCOEP 

of  (PHI) xx  tern 

DH1  (J)  ♦DH3  (J)  ; hyperbolic  coeff, 

DH  3 

TCOEF 

of  (PHI)  xx  tern 

XIC(J)  *XIL(J)  ; hyperbolic  coeff 

DL  1 

TCOEF 

of  (PHI) xx  tern 

ZC*ZL:  coeff.  of  (PHI)  zz  tern 

DL2 

TCOEF 

ZC* (ZL+ZR) ; coeff.  of  (PHI)zz 

DL3 

TCOEF 

term 

ZC*ZR;  coeff.  of  (PHI)  zz  tern 

LCOX  is  foe  storage  of  the  coarse  grid  difference  coefficients 
for  the  elliptic  and  hyperbolic  PHI  terms,  and  special 
difference  coefficients  for  the  downstream  boundary. 


LCOX 

DE  IX 

TCOEFX 

XICX  (J) *XILX (J) ; elliptic  coeff. 
of  (PHI) xx  tern 

DE2X 

TCOEPX 

DE1X  (J) ♦ DE3 X ( J) ; elliptic  coeff. 
of  (PHI) xx  tern 

DE3X 

TCOEFX 

XICX  (J)  *XIRX  (J) ; elliptic  coeff. 
of  (PHI) xx  term 

DH  IX 

TCOEFX 

XICX  (J)  *XILX  (J-1)  ; hyper,  coeff. 
of  (PHI)  xx  term 

DH2X 

TCOEPX 

CH  IX  (J)  +DH3X  (J)  ; hyper,  coeff. 
of  (PHI) xx  tern 

DH3X 

TCOEPX 

XICX  (J)  *XILX  (J)  ; hyper,  coeff. 
of  (PHI) xx  ter n 

DL1X 

TCOEFX 

ZC*ZL;  coeff.  of  (PHI)  zz  tern 

DL2  X 

TCOEPX 

ZC  * (ZL*Z  R)  ; coeff.  of  (PHI)zz 
term 

DL3X 

TCOEFX 

ZC*ZR;  coeff.  of  (PHI)zz  tern 

DK  1 

TCOEF 

TCOEFX 

C2*  (CORD  (K)  ♦ CORD  (1)  ) *.5*CC* 

ETAR  (K)  *ET  AC  (K) 
special  ETA  coeff.  for 
downstream  boundary 

DK  2 

TCOEF 

TCOEFX 

DK  1 (K)  *DK3  (K) 
special  ETA  coeff.  for 
downstream  boundary 

DK  3 

TCOEF 

TCOEFX 

C2*  (CORD  (K*1)  ♦CORD(K)  ) *.  5*CC* 
ETAR  (K)  *ETAC  (K) 
special  ETA  coeff.  for 
downstream  boundary 

LARGX  is  for  storage  of  the  coarse  grid  potential  array  and 
coarse  grid  difference  coefficients. 


LARGX  PC  IC  PCI  NT (J1,J2,J3,J4,K1,R2,L1,L2, 

WNGBDY  DX  1, DX2, DY,DZ) 
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CONNON 


l. 

nfshco 


w i nciu: 


V Mil  AllL  F 

SOURCE 

BOO  HOY 

DESCRI PTION 

D.l  R 10  X 

TCOKPX 

ETACX  (R)  • KT Al X (K) 

Oil  K 1 1 X 

TCOEPX 

FTACX  (R)  *KTARX  (R) 

DJK  tx 

TCOFPX 

• 2*»*C  I*  RTACX  (R ) *X  ICX  (.1) 

.lKX 

MESH  IN 

• 

K EX 

NESII  IN 

• 

LRX 

NKSHIN 

• 

DXKX 

NKSHIN 

• 

0 Y EX 

HE  SHIN 

♦ 

D7.  KX 

NKSHIN 

* 

* stored  results  of  searches 
intetpol ation  of  PHI  fro* 
coarse  to  lino  nosh 

f or 

KI  N 

NKSHIN 

♦ 

.11  NR 

NKSHIN 

♦ 

LT  N 

NKSHIN 

♦ 

0Y  IN 

NR  SI)  I N 

♦ 

07. 1 N 

NKSHIN 

♦ 

♦ stored  results  ot  searches 
interpolation  of  PHI  fron 
fine  to  c oar  so  nosh 

for 

KINH 

N FS  H 1 N 

J 

0Y  I N n 

NKSHIN 

S 

1. 1 Nit 

NKSHIN 

t 

07  IN  It 
.11  K H 

NKSHIN 

$ 

$ 

i stored  results  ot  searches 
interpolation  of  PHI  fron 
fine  to  coarse  nosh 

for 

.11  NKN  1 

N RS  II I N 

stored  result  of  search  for 
interpolation  of  PHI  fron 
fine  to  coarse  nosh 

K EXU 

NKSHIN 

R ROOTX ♦ 1 6 

LEXO 

N FS  11 1 N 

t; 

OY  EX  It 

NKSHIN 

(ETA  (RROOT)-ETAX  (RROOTX)  )/ 

( ETA  X (K  ROOT  A ♦ l)-FTAX  (RROOTX)  ) 

R 

02  EXIt 

NKSHIN 

& 

6 stored  results  ot  searches 

t or 

interpolation  oi  PHI  t tub 
i:oACS»»  to  tin«J  moah  At 
body  surface 


.ICON 

NKSHIN 

JEX  ( 1 , .IN  AX  ) ; 

index  ot 

XX  at 

coarse/ 1 in  e 

downstream  t ntort ace 

.1C  HP 

NKSHIN 

index  or 

XX  at 

coarse/f ine 

up  at  ream 

interface 

71.  WL 

TOO  F F 

J/  (I1 1*  (H  1»2*H2) ) 

ST  <liff.  eooff.  to  lover  winy 


J 


i 


COMMON 


VARIABLE  SOURCE  DESCRIPTION 


surface  boundary 


*T  option. 
OLD 


ZR  HO 

TCOEF 

2/  (H2*  (H2*2*H1) ) 

ZT  diff.  coeff.  to  upper  wing 
surface  boundary 

TWIST 

WING  CO 

slope  increaent  due  to  wing 
twist 

BBCL 

NINGCO 

WCOE*COEL*  (TEfIPL-AOE  A) 
lower  surface  boundary 
cond it ions 

WBCU 

WINGCO 

WCOE *COEU*  (TEHPU-AOFA) 
upper  surface  boundary 
conditions 

iporary 

storage  of 

old  aesh  data  for  aesh 

(I  DISK  = 

T,HSHINT=T 

option  or  RENESH 

XIO 

IC 

STORE 

old  XI  array 

ETAO 

IC 

STORE 

old  ETA  array 

ZTO 

IC 

STORE 

old  ZT  array 

PJUHPO 

IC 

old  trailing  edge  potential 

STORE 

juap 

LBUO 

IC 

STORE 

old  LBO  array 

LBDO 

IC 

STORE 

old  LBD  array 

PJOMPT 

IC 

INTERP 

trailing  edge  potential  juap 
interpolated  onto  new  aesh 

KBMXO 

STORE 

old  RBHX  array 

JHO 

IC 

STORE 

old  values  of  JNAX 

KHO 

IC 

STORE 

old  values  of  KM  AX 

LHO 

IC 

STORE 

old  values  of  LM  AX 

JTAI  LO 

IC 

STORE 

old  values  of  JTAI L 

JNOSEO 

IC 

STORE 

old  values  of  JNOSE 

LWUO 

IC 

STORE 

old  values  of  LWINGU 

FINE 

IC 

logical  clue  for  INTERP 

SCBACH  is  for  teaporary  storage 
SOLVE  and  SOLVBX. 


of  data  arrays  used  in 
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COB HON 


VARIABLE 


SOURCE  DESCRIPTION 


SCRACH 

HU 

SOLVE 

SOLVEX 

POLD 

SOLVE 

SOLVEX 

VC2 

SOLVE 

SOLVEX 

SOLVEX 

VC 

SOLVE 

SOLVEX 

EPLT  is  for 

the  storage 

of  the  ( 

subroutine 

ERPLOT. 

EPLT 

CEP 

SOLVE 

BRROF 

SOLVE 

ERRF 

SOLVE 

CR  F 

SOLVE 

RSDOF 

SOLVE 

RSDF 

SOLVE 

CEX 

SOLVEX 

ERROX 

SOLVEX 

ERRX 

SOLVEX 

CR  X 

SOLVEX 

RSDOX 

SOLVEX 

RSDX 

SOLVEX 

LOCAL 

LSONL 

OUT  P 

LSONU 

OUTP 

xoc 

OUT  P 

V SCI N P 

I V SB  AX 

INPUT 

ISTOP 

VISCPL 

IV  ITER 

VISC  FL 

IVCON 

INPUT 

EPSVIS 

INPUT 

shock  pt  operator;  HU=0  at 
subsonic  pts,  HU=1  at 
supersonic  pts. 
old  values  of  potential  at 
current  and  two  upstreaa 
calculation  planes 
contribution  of  spanwise  tera 
to  coeff.  for  (PHI)xx 

coefficient  of  CSD  PHI  tera; 
TOO  at  subsonic  pts;  VC<0  at 
supersonic  pts. 


errors  and  residuals  for 


offset  for  fine  grid  error  plot 

initial  fine  grid  error 

CEP*  ALOG  10  (error) 

offset  for  fine  grid  residual 

plot 

initial  fine  grid  residual 
CRP*-  ALOG 10  (residual) 
offset  for  coarse  grid  error 
plot 

initial  coarse  grid  error 
CEX* ALOG  10  (error) 
offset  for  coarse  residual  plot 
initial  coarse  grid  residual 
CRX+AIOGIO  (res  idual) 

index  of  vertical  location  of 
sonic  line  on  lover  surface 
index  of  vertical  location  of 
sonic  line  on  upper  surface 
local  PSI 

aaxiaum  allowed  nunber  of 
viscous  iterations 

nuaber  of  current  viscous 
iteration 

convergence  criterion  clue; 

1 = convergence  on  pressure 

change 

2 * convergence  on  lift  change 
viscous  convergence  linit 
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VARIABLE 

SOURCE 

DESCRIPTION 

RE 

INPUT 

Reynold's  no. 

IOtJTP 

INPUT 

output  clue;  0 = normal  output 

1 = boundary  layer  output 

2 = ^ull  profile  output 

ISTEPO 

INPUT 

no.  of  b.  1.  steps  between 
profile  output 
(used  only  when  IOUTP  = 2) 

ITRANS 

INPUT 

-4;  transition  clue  for  strip 
boundary  layer 

XTRNT 

INPUT 

upper  surface  transition 
location;  x/c 

XTRNB 

INPUT 

lover  surface  transition 
location;  x/c 

IUNIT 

INPUT 

output  device  no. 

KSBTHX 

INPUT 

smoothing  parameter 

K2SNTH 

INPUT 

smoothing  parameter 

RENDS 

INPUT 

smoothing  parameter 

CHISNP 

INPUT 

chord  position  at  which 
effective  sweep  angle  is 
calculated 

K WRITE 

IC 

saved  solution  clue; 

0 = inviscid  , 

1 = viscous 

LW  RITE 

INPUT 

viscous 

output 

1 = abbreviated 

output 

AVCHGU 

CPCALC 

average  change  of  CP 
along  each  span  station  for 
upper  surface 

AVCHGL 

CPC  ALC 

average  change  of  CP 
along  each  span  station  for 
lower  surface 

DCPMXU 

CPCALC 

max  CP  change  for  upper  surface 

DCPNXL 

CPCALC 

max  CP  change  for  lower  surface 

CP  N L 

CPCALC 

new  CP  for  max  change  at  lower 
sur  f ace 

C POL 

CPCALC 

old  CP  at  max  change  at  upper 
surface 

JN  XL 

CPCALC 

location  of  max  change  on  lower 
sur  face 

CPNU 

CPCALC 

new  CP  at  max  change  at  upper 
surface 

CPOU 

CPCALC 

old  CP  at  max  change  at  lower 
sur  face 

EPS1 

CPCALC 

total  CP  change  on  upper  surface 
for  convergence  check  if 

IVCON  = 1 
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cohhon 


VITERP 


VARIABLE  SOURCE  DESCRIPTION 


CN  A X DT 
CHAXDB 
CPTBAR 

SONPU 

SONPL 

a ACHUP 

NACHDN 

SHKPU 

SHKPB 

JM  XU 


EMSQ 
N GR IDS 
CP  BBAR 


XOUTOD 


ETAOLD 

DXLSTU 

DXLSTL 

KTJ10LF 

NXOLD 

K70LD 

K80LD 


CPC  A LC 


CPCAIC 
CPCALC 
CPC  ALC 

CPCALC 

CPCALC 

CPCALC 

CPCALC 

CPCALC 

CPCALC 

CPCALC 

CPCALC 

CPCALC 

CPCALC 

CPCALC 

CPCALC 


SAVSOL 

IC 

SAVSOL 

IC 

VISC  FL 
IC 

VISCFL 

IC 

SAVSOL 

IC 

SAVSOL 

IC 

SAVSOL 

IC 


total  CP  change  cn  lover  surface 
for  convergence  check  if 
IVCON  = 1 


average  of  the  absolute  value 
of  CP  on  top  surface 
last  acceleration  past  sonic  on 
upper  surface 

last  acceleration  past  sonic  on 
lover  surface 

no.  of  accelerations  past  sonic 

on  upper  surface 

no.  of  accelerations  past  sonic 

on  lover  surface 

no.  of  shock  points  on  upper 

surface 

no.  of  shock  points  on  lower 
surface 

location  of  max  change  on  upper 
surface 

pressure  distribution  on  upper 
surface 

pressure  distribution  on  lover 
surface 
HACHNO**  2 
1 

average  of  the  absolute  value 
of  CP  on  the  lover  surface 

values  of  XOOT  from  old 
solution 

values  of  ETA  from  old  solution 
upper  surface  deltastar  values 
lover  surface  deltastar  values 


old  values  of  NX 


value  of  K 7 X from  old  solution 


value  of  K8X  from  old  solution 


X/C  values  for  which  output  to 
be  calculated 
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YAWOPT 


VISCOH 


VARIABLE 


SOURCE  DESCRIPTION 


NX 

VISCFL 

JiTE-JWLE*1;  no.  of  chordvise 

SEPXL 

points  at  current  span 
station 

lover  surface  separation 

K8BL 

VISCFL 

location 

ZSLPOG 

ZSLPTE 

XFILOG 

SEPHIN 

VISCFL 

ainiaua  lover  surface 

DDDSL 

VISCFL 

separation  location 
aodified  lover  surface 

K1X 

BAVITZ 

SETUP 

deltastar  slope  froa  Bavitz 
treatment 

t:  if  YAW  * T,  K IX  = 2 

K2X 

SETUP 

KfiAX;  if  YAW  = T,  K2  X = 5 

K3X 

SETUP 

1;  if  YAW  = T,  K3X  = 3 

K4X 

SETUP 

KNAX-1;  if  YAW  = T,  K4X  = 4 

K5X 

SETUP 

1;  if  YAW  = T,  K5X  = 2 

K6X 

SETUP 

KTIP;  if  YAW  = T,  K6X  = 5 

K7X 

SETUP 

KROOT;  index  of  span  station  at 

K8X 

SETUP 

centerline  or#  if  BODY  = T, 
first  span  station  outside 
body;  if  YAW  = T,  K7X  = 3 

KTH1;  if  YAW  = T,  K8X  = 4 

KP IX 

SETUP 

2;  if  YAW  = T,  KPIX  = 4 

KH  IX 

SETUP 

2 

DDSTL 

SLOPY 

lover  surface  deltastar  slopes 

DDSTU 

SLOPY 

interpolated  to  viscous  x/c's 
upper  surface  deltastar  slopes 

SCPT 

VISCFL 

interpolated  to  viscous  x/c’s 
local  upper  surface  skin 

SCFB 

VISCFL 

f ric  tion 

local  lover  surface  skin 

CFFKL 

VISCFL 

friction 

integrated  lover  surface 

CFFKO 

VISCFL 

viscous  drag 

integrated  upper  surface 

DDDSTU 

VISCFL 

viscous  drag 

upper  surface  deltastar  slopes 

DDDSTL 

VISCFL 

lover  surface  deltastar  slopes 

CPUK1 

VISCFL 

upper  surface  CP  at  point  KI,J1 

CPLK1 

VISCFL 

(for  convergence  history) 
lover  surface  CP  at  point  KI,J1 

CP  UK  2 

VISCFL 

(for  convergence  histocy) 
upper  surface  CP  at  point  KO,J1 

CGHNON 


VARIABLE  SOURCE  DESCRIPTION 


CPLK2 

VISCFL 

(for  convergence  history) 
lower  surface  CP  at  point  K0,J1 

DEL0K1 

VISCFL 

(for  convergence  history) 
upper  surface  deltastar  at  point 

DELLK1 

VISCFL 

KI , J 1 (for  convergence  history) 
lover  surface  deltastar  at  point 

DELUK2 

VISCFL 

K I , . J 1 (for  convergence  history) 
upper  surface  deltastar  at  point 

DELLK2 

VISCFL 

KO , J 1 (for  convergence  history) 
lower  surface  deltastar  at  point 

CT.  GG 

VISCFL 

KO, J 1 (for  convergence  history) 
lift  coefficient  (for  conver- 

EPS IX 

VISCFL 

gence  history) 
convergence  parameter  (for 

EPS  2X 

VISCFL 

convergence  history) 
convergence  parameter  (for 

VOTHET 

VISCFL 

convergence  history) 

2-P  momentum  thickness 

ITEX 

VISCFL 

no-  of  inviscid  iterations 

CPIU 

VISCFL 

completed  between  last  viscous 
iteration  and  present  viscous 
iteration  (for  convergence 
history  ) 

upper  surface  CP  at  span 

CP  VU 

SLOPY 

station  K for  conversion  to 
viscous  x/c'  s 

CP's  at  viscous  x/c's 

ETAK 

VISCFL 

ETA  (K) 

CPIL 

VISCFL 

lower  surface  CP  at  span 

CPVL 

SLOP  Y 

station  K tor  conversion  to 
viscous  x/c's 

CP's  at  viscous  x/c's 

CP  V LP 

SLOPY 

(not  used) 

SBRAL 

VISC  FI 

lower  surface  x/c's  used  in 

DELSL 

VISCPL 

boundary  layer  calculation 
lower  surface  deltastar  (from 

CFVL 

VISCFL 

STRI  PK) 

lower  surface  skin  friction  in 

CFVU 

VISCFL 

chordwise  direction 

upper  surface  skin  friction  in 

DEL  STU 

SLOPY 

chordwise  direction 

upper  surface  deltastar  inter- 

CFZL 

VISCFL 

polated  to  viscous  x/c's 
lower  surface  skin  friction  in 

CPZ  0 

VISCFL 

spanwise  direction 

upper  surface  skin  friction  in 

DELSTL 

SLOPY 

spanwise  direction 

lower  surface  deltastars  inter- 
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COHNON 


LOCAL2 


VSFCON 


VARIABLE 

SOURCE 

CM  0 

CPCALC 

CWL 

CPCAIC 

PU 

CPCALC 

PL 

CPCALC 

DELSU 

VISCFL 

SBRAt) 

VISCPL 

CPVUP 

SLOPY 

XCBLX 

NNX 

VISCPL 

VISCFL 

NN  XX 

VISCFL 

DELPTE 

VISCFL 

XSEPU 

VISCFL 

XSEPL 

VISCFL 

MBCU1 

VISCFL 

RELBL 

INPUT 

EXTNDU 

INPUT 

EXTNDL 

INPUT 

AFCBL1 

INPUT 

AFCBL2 

INPUT 

KI 

INPUT 

DESCRIPTION 


diff.  coeff.  for 
of  CP's  to  wing 


upper  surface 
extrapolation 
surface 

lower  surface  diff.  coeff.  for 
extrapolation  of  CP's  to  wing 
surf  ace 

pressure  at  eesh  points  above 
wing;  for  extrapolation  to  wing 
surface 

pressure  at  mesh  points  below 
wing;  for  extrapolation  to  wing 
sur  face 

upper  surface  deltastars  (from 
STRIPK) 

upper  surface  x/c's  used  in 
boundary  layer  calculation 
(not  used) 


x/c's  for  viscous  calculation 
local  value  of  NT  for  input  to 
SLOPY 

•1;  no.  of  x/c's  for  viscous 
CP's  for  input  to  SI.OPY 
potential  jump  at  trailing 
edge 

upper  surface  separation 
location  (for  iteration 
summary) 

lower  surface  separation 
location  (for  iteration  summary) 
local  wing  boundary  condition 
for  smoothing 


fine  aesh  relaxation  factor 

for  aodification  of  slope 

boundary  conditions 

x/c  beyond  which  boundary  layer 

slope  is  extrapolated  on  upper 

surface 

x/c  beyond  which  boundary  layer 
slope  is  extrapolated  on  lower 
surface;  if  foil  is  super- 
critical, no  extrapolation 
is  necessary 

inviscid- viscous  boundary  layer 
interaction  parameter 
inviscid-viscous  boundary  layer 
interaction  parameter 
inboard  span  station  used  for 
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COMMON 

VARIABLE 

S00RCE 

KO 

VISCFL 

KING! 

NBC  UO  R 

NINGCO 

NBC  LOR 

NINGCO 

THRED 

XL  AN 

VBRAD 

EXTEND 

XC  MAX 

TBRAD 

BLLAM 

LASTI 

VBRAD 

BLLAM 

REDOC 

UFUT 

VBRAD 

REDOCX 

TFUT 

VBRAD 

RFDUCX 

WFUT 

VBRAD 

REDOCX 

TA  NA  F0 

RFDUCX 

TANBFU 

REDOCX 

V 

VBRAD 

REDOCX 

161 

VBRAD 

REDOCX 

RK 

VBRAD 

RK  2 

V BP  A D 

RK  3 

VBRAD 

VTPAN2 

DELOP 

VTTR AN 

DELDN 

VTRANS 

DU 

SLOPT 

DL 

SLOPT 

DDU 

SLOP  Y 

DDL 

SLOPY 

X0  0T 

VTRANS 

OSLO 

VTRANS 

DESCRIPTION 

convergence  hist  cry 

outboard  span  station  used  for 

convergence  history 

original  upper  surface  boundary 
conditions 

original  lower  surface  boundary 
cond it  ions 

cos  (arctan (We/Ue) ) 

■axitnuB  value  of  x/c  used 
for  boundary  layer  calculation 

number  of  x/c's  used  for 
boundary  layer  calculation 


future  velocity  profile 

future  shear  stress  profile 

local  r (Ga mma- 1)  Mach  no** 2/UFUT 

tangent  of  alpha,  angle  of 
growth  of  characteristics 
tangent  of  beta,  angle  of 
growth  of  characteristics 
vertical  velocity  profile 

no.  of  output  x/c's  ♦ 1 

SQRT  (RK  2) 

TETON*  XNNSQ 
A Y *X  NN  SQ/RK 

(not  used) 

(not  used) 

inboard  upper  surface 
deltastars  interpolated  to 
new  NX 

inboard  lower  surface 
deltastars  interpolated  to 
new  NX 

dummy  variable 
dummy  variable 
values  of  x/c  for  output 
upper  surface  deltastars 
interpolated  to  new  grid 


302 


COMMON 


VARIABLE  SOURCE  DESCRIPTION 


DSLL 

VTRANS 

lower  surface  deltastars 
interpolated  to  new  grid 

DU  1 

SLOP  I 

outboard  upper  surface 
deltastars  interpolated  to 
new  NX 

DL  1 

SLOP! 

outboard  lower  surface 
deltastars  interpolated  to 
new  NX 

DDDSUI 

VTRANS 

upper  surface  deltastar  slopes 
at  inboard  span  station  used 
for  interpolation  to  new  grid 

DDDSLI 

VTRANS 

lower  surface  deltastar  slopes 
at  inboard  span  station  used 
for  interpolation  to  new  grid 

DDDSUO 

VTRANS 

upper  surface  deltastar  slopes 
at  outboard  span  station  used 
for  interpolation  to  new  grid 

DDDSLO 

VTRANS 

lower  surface  deltastar  slopes 
at  outboard  span  station  used 
for  interpolation  to  new  grid 

XOUTO  1 

VTRANS 

old  values  of  XO UT  at  outboard 
span  station 

CPUI 

VTRANS 

inboard  upper  surface  CP's  from 
old  solution 

CPLI 

VTRANS 

inboard  lower  surface  CP's  fro* 
old  solution 

CPUO 

VTRANS 

outboard  upper  surface  CP's 
from  old  solution 

CPLO 

VTRANS 

outboard  lower  surface  CP's 
from  old  solution 

CPUIX 

SLOP  If 

inboard  upper  surface  CP's 
interpolated  to  new  NX 

CPLIX 

SLOPY 

inboard  lower  surface  CP's 
interpolated  to  new  NX 

CPOOX 

SLOPY 

outboard  upper  surface  CP's 
interpolated  to  new  NX 

CPLOX 

SLOPY 

outboard  lower  surface  CP’s 
interpolated  to  new  NX 

NX 

VTRANS 

number  of  x/c's  at  span  station 
for  new  grid 

NXOLD1 

VTRANS 

number  of  x/c's  at  span 
outboard  station  for  old  grid 

szc 

SZT 

PILKLU 

ICARD 

(not  used) 

(not  used) 

(not  used) 

PAVCOH 

CPL2 

BAVITZ 

local  lower  surface  CP's 

DELSTL 

BAVTT7, 

local  lower  surface  deltastars 
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* 

1 

COHflON 

VARIABLE 

SOORCE 

DESCFI PTION 

XSEP 

BA  VITZ 

XSEP 

BAVITZ 

x/c's  used  for  Bavitz  treatment 

Y5EP 

SLOPY 

lower  surface  deltastars  inter- 

polated to  XSEP 

OST 

BAVITZ 

(not  used) 

ST 

BAVITZ 

(not  used) 

I SOG  N 

XR  ANGE 

GRAPI13 

XMAX-XORG 

TBASE 

GR  APH3 

ETA  (KPOOT) 

YTREL 

GRAPH3 

YTIP-YBASE 

XINCH 

GRAPH3 

(6/YTREL) *XR ANGE 

XORG 

GRAPH3 

XLEI  (1,1) 

FOBCES 

CL 

SPNPLT 

0 

CD 

SPNPLT 

0 

CMC2 

SPNPLT 

0 

CCBAR 

SPNPLT 

CC3/DETA*  ( 1-ETA  (KTW1-1)  ) 

*CCB AP  (K  Tfl  1) 

NSBL 

XOUTA 

HINGCO 

streaniwise  fracticn  of  local 

BLOUT 

chord 

ZOCU 

HINGCO 

airfcil  upper  surface 

BLOOT 

ordinate,  fraction  of  local 

chord 

ZOCL 

HINGCO 

airfoil  lower  surface 

BLOOT 

ordinate,  fraction  of  local 

chord  49 

CPU 

OOTP 

upper  surface  pressure 

BLOUT 

coef  ticient 

. 

CPL 

OOTP 

lower  surface  pressure 

BLOOT 

coefficient 

ZLE 

HINGCO 

FLIN  (ZLER,ZLFT,Y, YR,YT) 

- 

BODV4 

xucl 

INPUT 

x location  for  body  upper 

centerline  (input) 

ZOCL 

INPUT 

body  upper  centerline 

XLCL 

INPOT 

x location  for  body  lower 

centerline  (input) 

ZLCL 

INPOT 

body  lower  centerline 

XZNHB 

INPOT 

x location  of  z max  half- 

breadth 

ZNHB 

INPUT 

z max  half-breadth 

XYNHB 

INPUT 

x location  of  y max  half- 

br  eadt  h 

YHHB 

INPUT 

y max  half-breadth 

NO  CL 

INPUT 

no.  of  upper  centerline 

locations  input 

NLCL 

INPUT 

no.  of  Lower  centerline 

locations  input 

j 

1 • 

NHBZ 

INPUT 

no.  of  z max  half-breadths 

30^ 

a 

j 

COUPON 

VARIABLE 

SOURCE 

DESCRIPTION 

input 

NHBT 

INPUT 

no.  of  y Bax  ha  If -breadths 
input 

ZOCLI 

DATTRN 

ZUCL  interpolated  to  x's 
(fine  grid  in  QUIK,  coarse 
grid  in  QUIKX) 

ZUCLIP 

D ATT  RN 

slope  of  ZUCLI 

ZLCLI 

DATTRN 

ZLCL  interpolated  to  x's 

ZLCLIP 

DATTRN 

slope  of  ZLCLI 

ZNHBI 

DATTRN 

ZNHB  interpolated  to  x's 

ZHHBIP 

DATTRN 

ZNHBI  slope  of  Z NHRI 

YNHBI 

DATTRN 

YNHB  interpolated  to  x's 

YNHBIP 

DATTRN 

YNHBI  interpolated  to  x's 

(1  ESHX 

DXL 

INPUT 

XI  mesh  spacing  at  leading  edge 
(fine  aesh) 

DXT 

INPUT 

XI  mesh  spacing  at  trailing  edg< 
(fine  aesh) 

DX  NX 

INPUT 

■ax  XI  aesh  spacing  on  wing 
(fine  aesh) 

NF 

INPUT 

no.  of  grid  lines  upstream  of 
XI=0. 

NB 

INPUT 

no.  of  grid  lines  downstreaa  of 
XI*  1. 

XDIST 

INPUT 

overall  length  of  XI  mesh 

XLG 

INPUT 

upstream  extent  of  XI  aesh 

OX  LI 

INPUT 

XI  mesh  spacing  at  leading  edge 
(initial  aesh) 

DXTI 

INPUT 

XI  mesh  spacing  at  trailing 
edge  (initial  aesh) 

DX  NX  I 

INPUT 

max  XI  mesh  spacing  on  wing 
(initial  mesh) 

NFI 

INPUT 

no.  of  grid  lines  upstream  of 

XI  = 0.  (initial  mesh) 

I0UT1 

INPUT 

=0. , no  general  mesh  generation 
output 

= 1.#  general  mesh  generation 
output 

I0UT2 

INPUT 

=0.,  no  detailed  mesh 
generation  output 
*1.,  detailed  mesh  generation 
output 

VELOC 

ONK 

SOLVE 

negative  of  (PHI)xx  coeff. 

(A2  * (PHI)  x-AI) 

V 

SOLVE 

span  wise  velocity  component  in 
y direction 

FNU 

SOLVE 

value  of  NU  in  the  wing  plane 
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C0HH0N 

V ARI ABL  E 

SOURCE 

DESCRI  PTION 

HOBCOH 

F 

INPOT 

relaxation  factor  for  Human 
bump 

SHIFT 

INPOT 

percent  chord  shift  in  shock 
location 

HBSTRT 

INPOT 

no.  of  interior  mesh  iterations 
before  start  of  Nurman  bump 

HBPRNT 

INPOT 

no.  of  interior  mesh  iterations 
between  additional  Human  bump 
printout;  =0.,  no  printout 

BLCON 

IT 

IN  POT 

max  no.  of  iters,  allowed 
at  each  row 

IOITER 

INPOT 

output  of  iteration  history; 

= 0.  , no  output 
= 1. , full  output 

IOPRF 

INPUT 

output  of  velocity  profiles 
at  each  station 
= 0.,  no  output 
* 1.,  full  output 

IPUNCH 

INPUT 

~ 0. , do  not  punch  output 
for  plotting; 

* 1.,  punch  output  on  unit  7 

KSHTH 

INPOT 

no.  of  smoothings  of  input 
pressure  distribution 

CO  NV 

INPOT 

convergence  criterion 

LTRN 

BLOOT 

grid  index  for  transition 

SCALE 

INPOT 

reference  length  s»cale,  ft. 

PRES 

INPUT 

static  pressure,  PSI 

TEMP 

INPOT 

static  temperature,  deg.  R 

IBOOT 

INPOT 

output  unit  = 13 

HOREXT 

H 

HORMAN 

jump  in  vertical  velocity 
at  shock  foot 

XOLD 

HURHAN 

old  shock  location  in 
the  wing  plane 

YAH  1 

T 

SETUP 

lift  spreading  factor 
fine  grid 

T2 

SETOP 

farfield  expression  for 
potential  - fine  grid 

TAB  2 

T 

SETUP 

lift  spreading  factor 
crude  grid 

T2 

SETOP 

farfield  expression  for 
potential  - crude  grid 

LEY  IX 

DXO 

DXL 

* 

* 

i 

J 
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COMMON 

V ARI  ABLE 

SOORCE 

DESCRIPTION 

• 

xduh 

• 

XD0N2 

* 

XDUN3 

• 

XDDJ1U 

• 

XDUN5 

* 

XDUN6 

• 

* dummy  variables  used  for 

equi valencing 

SAVES 

N XO 

IC 

values  of  NX  trom  old  solution 

XOUTO 

IC 

values  of  XOI/T  from  old 
so lu tion 

PARRY 

P 

SOLVE 

j - plane  potential  array 
this  array  only  appears  in  the 
AMES  CDC  version  of  the  program 

if 

SKI  HER 

CFVISC 

VISCFL 

total  viscous  draq 

CFTU 

VI  SC  PL 

upper  surface  skin  friction 

CFT  L 

VISCFL 

lover  surface  skin  friction 

C POD 

CPODO 

CPC  A LC 

upper  surface  CP  from  previous 

CPODL 

CPC  ALC 

boundary  layer  iteration 
lover  surface  CP  from  previous 
boundary  layer  iteration 
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4.  TAPE/ DISK  UNITS 

Because  the  program  keeps  most  of  the  information  in  core  at  all  times, 
there  is  relatively  little  use  of  tape  and  disk  units.  However,  there  are 
several  units  that  are  employed  in  addition  to  the  standard  READ  from  unit  5 
and  WRITE  on  unit  6.  These  devices  are: 


UNIT 

10 

11 

12 


13 


14 


USE 

When  using  a previously  saved  solution  as  the 
initial  guess  for  a new  solution,  the  starting 
solution  is  read  into  the  program  from  Unit  10. 

Solutions  are  saved  (when  requested)  on  Unit  11. 

This  unit  is  for  purely  internal  use,  in  order 
to  carry  out  the  mesh  interpolation  of  the  poten- 
tial when  changing  from  one  mesh  to  another. 

Unit  12  is  also  used  to  save  data  for  plotting 
the  results  in  the  CDC  version. 

This  is  the  unit  that  is  used  to  output  the 
data  set  for  the  operation  of  the  Nash/Scruggs 
boundary  layer  program  in  a subsequent  step. 

This  unit  can  be  used  to  save  the  detailed 
boundary  layer  output  in  case  these  details  sire 
of  interest. 


NOTE:  Some  of  the  output  on  these  units  is  formatted  rather  than  unformatted 
so  that  data  saved  on  CDC  equipment  can  be  used  readily  on  IBM  systems. 


5.  SUBROUTINES 


PROGRAM  MAIN 


PURPOSE:  control  program  for  the  calculation  of  viscous 

transonic  flow  about  wing-body  combinations 
at  Mach  numbers  less  than  one. 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION: 


ERPLOT 

IC 

INPUT 
N ESHIN 
OUT  BO  D 
OUT  P 
SAVSOL 
SETUP 
SETUP  X 
SOLVE 
SOLVEK 
STORE 

TCOEP 

TCOEFX 

KINGCO 

TOPBOD 

V ISC  FL 


for 

print  plot 

of  error 

a nd 

res 

idual 

for 

ini tializin 

9 

to  1 

obtain  input 

data 

for 

coarse- fine 

mesh  intecp 

olat 

ion 

setup 

for 

data  output 

of 

c ircu 

ila  r 

bod 

y surface  CP's 

for 

data  output 

0 f 

w ing 

sur 

face 

CP' 

s 

for 

saving  the 

solution 

if 

ISAV 

E=T 

for 

geometry  se 

tu  p 

with 

res 

pect 

to 

fine  mesh 

for 

geometry  se 

tup 

with 

res 

pect 

to 

coarse  mes 

for  relaxation  on  fine  mesh 

for  relaxation  on  coarse  mesh 

for  data  output  and  cataloging  when  using 

REMESH  = T option 

for  difference  coefficient  setup  on  fine  mesh 
for  difference  coefficient  setup  on  coarse 
mesh 

for  wing  boundary  condition  calculation 
for  body  boundary  condition  when  wing  is  top 
of  body 

for  computing  the  viscous  effects 


DATA  TO  COMMON: 

COMMON  VARIABLE 


RELAXP  IPASS 

HI 

HIX 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 
VARIABLE  DESCRIPTION 
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XSICIP  controls  heading  of  the  iteration  history 
ITERC  crude  grid  iteration  counter 

1TERF  fine  grid  iteration  counter 

READ  STATEMENTS:  none 

RRITB  STATEMENTS: 

RESIDJ  (K) 
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SUBROUTINE  IN  POT 

PURPOSE:  reads  and  writes  input  data 

CALL:  Cron  RAIN 


CALL  STATERENT:  no  arguments 
SUBROUTINES  CALLED:  none 
DATA  TO  CONNON: 

*NOTE:  the  variables  of  the  control  parameters  for  code 

options,  the  flight  conditions,  the  planforn 
specifications,  the  airfoil  specifications, 
the  body  specifications  and  the  nesh  and  napping 
are  described  in  INPUT  PROCEDURE 


COR  NON 

VARIABLE 

INTER 

ETA 

XIN 

TNAX 

THIN 

X RAX 

XH  IN 

ZNAX 

ZHIN 

ZT 

EXTBR 

ETAX 

XINX 

XN  AXX 

XNINX 

TRAXX 

YHINX 

ZH  AXX 

ZNINX 

ZTX 

INDEX 

JNAX 

KNAX 

KROOT 

KTIP 

LH  AX 

LHINGU 

INDBXX 

J HA  XX 

KHAXX 

m 
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KROOTX 

KTIPX 

LNAXX 

LHNGDX 

FLAGS  XNRD 

XMRDX 
XNRD 
THRDX 
ZNRD 
ZRRDX 

RELAXP  EPS  EX 

IRCR 
INCRX 
NAXIT 
NAXITN 
HAXITX 

HI  MG  DXLER 

DXTER 
DXLET 
DXTET 
DXR  1 
DXTO 
DXT  1 
INL 

mn 

KSHTHS 
KXO 
KX  1 
NL  El 
NLES 
NPAN 
NSO 
MSI 
NTEI 
RTES 
MTIPLE 
NTIPXI 
NXO 
NX  1 
XTE I 
XXO 
XXI 
XLFI 
XT  El 
XXO 
XXI 

BO  DTI  DZFBL 

DZPBtI 
BTXPE 


l 


DATA  TO  COMMON (con  t. ) 


JBPN 

JBUP 

JNOSF 

J NO  SEX 

JTAIL 

JTATLX 

KBMX 

KBMXX 

NBI  N 

’ 

NBODS 

N BPTS 

NRBL 

NRBU 

XBIN 

XNOSF 

X TAIL 

YRB 

BODV2 

KBOD 

L BO  D 

BODV4 

XUCL 

ZUC  L 

XLCL 

ZLCL 

XZMHB 

ZMHB 

XYMHB 

YM  HB 

NUCL 

NLCL 

M HB  Z 

M HB  Y 

JUMP 

PJ  UMP 

PJUMPX 

LABEL 

TITLE 

V SP  COM 

AFCBL  1 

AFCBL2 

EXTNDL 

EXTNDH 

K I 

RELBL 

VSCINP 

I OUT  P 

ISTEPO 

ITR ANS 

I VCON 

IVSMAX 

RPAP  STATEMENTS: 

. 
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TITLE,  BTITLE,  BTYPE,  ZRBO,  ZRBL,  YRB,  HR  BO , XRBO  (I)  , 
IBOD,  ETAB  0(1),  RBCO  (20*  K,  J)  , NRBL,  XRBL(I),  IBID, 
ETABL(I),  RBCL (20»K , J)  , NRBS,  XRBS  (I) , IBSIDE, 

ZBOD(I),  FY(20*L,J),  X NOSE,  XTAIL , NBODS,  NBIN(N), 
JBiJP(N)  , JBDH(N),  XBIN  ( N,  I)  , RBIN(N,I),  PTITLE, 

X ROOT,  XLER,  XT ER,  YTIP,  XLBT , XTET,  XNON,  XiLE, 
YLEI(N),  X LEI  ( N)  , XNTF,  YTEI(N),  XTEI(N),  ATTTLE, 

JIM,  NTWST,  NPA  N,  INU,  INL,  K SHTHS,  XP(M),  THETP  (M)  , 
XINU(I),  XIML(I),  ISAHE,  ZOP(I),  ZLP(I),  XNPAN, 

X KSNTH,  YP  (N)  , XNWSFC,  ZSYR,  FNO,  FNL,  XF(I,N), 

ZF  (I , N)  , X F ( J , M)  , Z F (J  , N)  , YTWST(I),  THETP  (I)  , 

TITLEN,  JR  AX , KH  AX , LN  AX,  KTIP,  LWINGO , XIN(J), 

ETA  (K)  , ZT  (L)  , NSO,  KXO(N),  NXO  (N)  , YXO(N,I), 

XXO  (N,I)  , DXRO(H),  DXTO  <N)  , NS1,  KX  1 ( N)  , NX1(N), 

YX1  ( N,  I ) , XXI  (N,I)  , DXR1(H),  DXT1(N),  JNAXX,  KH  AX  X, 
LNAXX,  KTIPX,  LV  NGU  X,  XINX(J),  ETAX(K),  ZTX  (L) 

WRITE  STATEMENTS: 

TITLE,  HAXIT,  INCR,  IDISK,  HSHINT , ISAVE,  I ELCT, 

SOL  V,  WBCPRT,  BBCPRT,  BODY,  FCR,  ISPAN,  EXTNSH, 

REHESH,  YAH,  HACHNO,  ALPHAH,  ALPHAS | , GANNA,  RSUB, 

RTEST,  EPS,  REACT,  ENEXP(I),  BTITLE,  ZRBO,  ZRBL, 

YRB  , NRBtJ,  XRBO  (I),  IBOD,  ETABU  |I)  , R BCO  (20  + K, J)  , 

NRBL,  XRUL(I),  IBLD,  ETABL(I),  RBCL  (20»K,  J)  , NRBS, 
XRBS(I)  , IBSIDE,  ZBOD(I),  FY(20*L,J),  XNOSE,  XTAIL, 
HBODS , NBIN(N),  JBUP(N),  JBDN(N),  XBIN(N,I),  FBIN(N,I), 
PTITLE,  YROOT,  XLFR,  XTEH,  YTIP,  XL  ET , XTET , XNON, 

NLEI,  N,  YLEI(N),  XLEI(N),  NTEI , YTEI  (N)  , XTEI(N), 
ATITLE,  JIN,  NTWST,  NP AN,  INO,  INL,  K SHTHS,  YP(I), 
THBTP(I),  XINO(T),  XINL(I),  I,  YP(N),  ZOP(I),  ZLP(I), 

XF  { I,N)  , ZF  (I , N ) , X F ( J , N ) , ZF(J,N),  YTHST(I),  TITLE  N , 
JNAX,  KNAX,  LN  AX,  KTIP,  LHINGU,  XIN(J),  ETA(K),  ZT(L), 
NSO(N),  KXO(M),  NXO(N),  YXO(N,I),  XXO(N,I),  DXRO(N), 

D XTO  (N  ) , N S 1 , KX  1 ( N)  , NX1(N),  YX1(N,I),  XX1(N,I), 

DX  R 1 (N)  , D XT  1 (N  ) , JHAXX,  LNAXX,  KNAXX,  KTIPX,  LHNGUX, 
XINX  (J)  , ETAX(K)  , ZTX  (L) 


SUBROUTINE  SETUP 


PURPOSE:  conputes  planfora  parameters  and  fine  grid,  and 

transforms  geonetry  and  fine  grid. 

CALL:  from  MAIN 

CALL  STATEMENT:  no  argunents 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 


BEND 

GEOMBR 

GEOMB 

PINGRD 

SPLN1 

SPLN1X 

FLIN 

DATA  TO  COMMON: 
COMMON 
INTER 
INDEX 


MING 


to  define  reference  length  for  computational 
plane 

to  compute  body  slopes  (rectangular  body) 
to  compute  body  slopes  (circular  body) 
to  calculate  fine  grid  if  not  read  in 
setup  of  spline  fit 

spline  fit  routine  to  compute  mesh  and 
wing  leading  and  trailing  edges 
statement  function  for  linear  interpolation 


VARIABLE 

XI 

XIN 

JMAX1 

KM  AX  I 

LMAX1 

LHINGL 

KTM  1 

J ML  E 

JMTE 

JTE 

KT  IP  1 

CROOT 

SSPAN 

CAV 

CMEAN 

XOR 

COR  DX 

XLEW 

XLE 

ITEM 


1 


X YCOE 

XTE 

CORDW 

COPDIN 

CORD 

XI Y 

X 

Y AW OPT 

K IX 

I ASM 

K2X 

K3X 

K4X 

K5X 

K6X 

K7X 

K8X 

T 

INTERNAL 

T2 

SUBROUTINE  VARIABLES: 

VARIABLE 

DESCRIPTION 

A PACT  1 

exponential  damping  in  lift  spreading. 

AFACT2 

des  ired 

degree  of  lift  spreading  desired 

C N AC 

mean  aerodynamic  chord  of  true 

planf  orm 

CTIP 

XTET-XI  ET  , tip  chord 

AR 

aspect  ratio  based  on  reference 

wing 

ARTRUE 

aspect  ratio  of  actual  planform 

OX 

1st  difference  of  computational 

XI  grid 

DY 

1st  difference  of  computational 

Y grid 

DZ 

1st  difference  cf  computational 

Z grid 

D2X 

2nd  difference  of  computational 

XI  grid 

D2Y 

2nd  difference  of  computational 

Y grid 

D2Z 

2nd  difference  of  computational 

Z grid 

HONX 

x mesh  monotinicity  check  klue 

BONY 

y mesh  monotinicity  check  klue 

NONZ 

z mesh  monotinicity  check  klue 

NNAX 

flAXO  (Jfl  AX,K(1AX,LNAX) 

OOTX1 

x grid  for  output 

OUTETA 

ETA  grid  for  output 

OOTZT 

Z grid  for  output 

J 1 

JLE(K) 

J 2 

JTE  (K) 

SWPL3 

( XL  ET- XLER ) /SSP A N 

S if  PTE 

(XTET-XTERJ/SSPAN 

SflPLED 

leading  edge  sweep  in  degrees 

SBPTBD 

trailing  edge  sweep  in  degrees 
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SREP 

STRUE 

SXPOS 

TR 

SLOPE 

Y B 
XB 

YTE  flP 
XTENP 
XL  EC 
X TEC 
XLBP 

XTEP 

COR  DP 

XLENAC 


CA V* SSP AN , wing  reference  area 
true  area  of  actual  input  planforn 
wing  area  of  the  exposed  planforn 
CTIP/CROOT , reference  wing  taper  ratio 
local  variable  to  define  slope  of  leading  edge 
and  napping 

local  definition  of  l.e.  and  t.e. 
local  definition  of  l.e.  and  t.e. 
local  slopes  for  planforn  and  napping 
local  slopes  for  planforn  and  napping 
(X  (K,  J1J-XLEW  (K > ) /CORDW  (K) 

(X  (K,J2) -XLEW  (K)  ) /CORDW  (K) 

located  in  egui valence  statenent  in  PA8N, 

leading  edge  slope 

located  in  equivalence  statement  in  P AR  H, 
trailing  edge  slope 

located  in  equivalence  statement  in  PARH, 
rate  of  change  of  chord  with  span 
distance  to  the  leading  edge  of  the  nac 


in  PARfl, 


statement  in  PARR, 


READ  STATEHENTS: 


WRITE  STATEHENTS: 


N,  OUTX  1 , OUTETA,  OUTZT,  DX,  DY,  DZ,  D2X,  D 2Y  , D2Z, 
SWPLE,  SWPTE,  CROOT,  CTIP#  S#  AF,  TR , CMEAN,  CA¥f 
K,  ET  A (K)  , XLE(K),  XTE  (K)  , XLEP  (K)  , XTEP(K),  JLE(K), 
JTE(K),  XLEW  (K)  , CORDW  (K)  # XLEC,  XTEC 


SUBROUTINE  SETUPX 


PURPOSE:  computes  rectangular  coarse  exterior 
grid  and  geonetry. 

CALL:  fron  RAIN 

CALL  STATEMENT:  no  arguaents 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

CRDGRD  to  calculate  crude  ETA  and  ZT  grids 

if  not  read  in. 

GEO^X  to  coapute  body  slopes  for  crude  grid 

XC2  to  calculate  crude  X1N  grid  if  not  read  in 

7LIN  statement  function 

DATA  TO  CONDON: 

CON  HON  VARIABLE 

EXTER  XIEX 

INDEXX  JHA XXI 

KHAXX1 
LHAXX 1 
LBNGLX 
KTH  IX 
KTIP1I 
JTEX(K) 

JLEX  ( K) 

MING  XLFWX(K) 

XTEWX (K) 

XYCOE  XX  (J)  , 

YAB2  T 

T 2 


READ  STATENENTS:  none 
WRITE  STATEMENTS: 

K,  X I EX  (K)  , FTAX  (K)  .ZTX(K) 

K,  ETAX(K),  JLEX(K),  JTEX(K)#  XLEHX  (K)  , XTEMX  (K) 


SUBROUT  INF.  GECHB 


PURPOSE:  circular  body  given  by  F(X,I,Z)-0; 
computes  RfFXfFTfPZ. 

CALL:  froa  SETUP  (note  that  this  routine  is  not  used  in  the 

present  version  of  the  prog  ran) 

CALL  STATEHENT:  no  arguments 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 


SLOP! 

DATA  TO  COHNON: 
CONflON 


set  up  to  coapute  wing  and  body  surface  slopes 


VARIABLE 


INDEX  KROOT 

B0DV1  KB HX  (J) 

R(J) 

NBPTS(J) 
LUX 
LfIN 
CFK  (K) 
BFK (K) 
AFK  (K) 
CFL  (I) 
BFL  (I) 
AFL  (I) 
CBL  (I) 
BBL  (I) 
ABL  (I) 
ACL (I) 
BCL  (I) 
CCL  (I) 

BODV2  K BOD 

LBOD 
FI  (Nf  J) 
PZ  (N , J) 
FX(N.J) 
LBU 
LBD 
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MAIN  INTERNAL  SUBROUTINE  VARIABLES 


VARIABLE 

DESCRIPTION 

AOPAB 

.0  17453293*ALPHAB 

(12 

N BIN  (M) 

XBT  (HI) 

XBIN  (M,  Ml) 

RBT((11) 

RBI  N (N#  Ml) 

NT 

NBIN  (N) 

X PP (NX) 

XIN  (J)  - XNOSE 

NEND 

NBPTS(J) 

RP 

SQRT  (ETA  (K)  ♦*2*ZT{L)  **2) 

KEND 

KBHX(J) 

DKP  1 

ETA  (K*  l)-ETA(K) 

DKP2 

ETA  (K+2)-ETA  (K*  1) 

DK 

ETA  (K  ♦ 2 ) - ETA  (K) 

DLP1 

Z T (L*  1 ) — ZT  (L) 

DLP  2 

ZT  (L*2)  -ZT(LM) 

OL 

DL(1 1 

ZT  (L)  - ZT  (L-  1) 

D Lt12 

ZT(L-I)  -ZT  (L-2) 

READ  STATEMENTS: 

none 

WRITE  STATEMENTS: 

J,  XI  N ( J ) , XI  (J), 
PZ  (N,  J)  , FX  (N  , J)  / 


R(J),  N,  K,  L t ETA(K),  ZT  (L)  , 
KBHX(J),  IBU(K,J),  LBD  (K,  J) 


FT(N#J)  , 
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SUBROUTINE  GEOHBR 


PURPOSE:  r«ct«(u]uldi'  body;  computes  body  aesh  pts.  in 

fine  interior  aesh;  body  slopes 

CALL:  froa  SETUP 

CALL  STATEMENT:  no  arguments 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

(JUIK  to  convert  body  line  input  to  body  slopes 

SLOPE  to  do  the  streanwise  interpolation 

SLOPQ  to  interpolate  for  upper  and  lower  body  slopes 

DATA  TO  CONNON: 


CONNON 

VARIABLE 

B0DV1 

XNOSE 
XTAIL 
«J  NOSE 

JT  AIL 

U0DV2 

LBU  (K,d) 
LBD  (K,  J) 
FY 

BO  D V 3 

LLBU 

LLBL 

K UN  AX 

RBCU  {K,  J) 
RBC  l (K, J) 
DR  BCD 
DRBCL 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


V ARI  ABLE 

DESCRIPTION 

COE  1 

local  difference  coefficient,  several 
def init ions 

dif  fe rent 

COE  2 

local  difference  coefficient,  several 
def initions 

different 

AO  FA 

ALPHAW/57. 29S77SS1 

KBS 

K 

N PTS 

2*KBS*  LLBU -LLBL-  1 

KB 

KBS  - 1 

DXU(J)  local  variable  Cor  interpolation 

DXL(J)  local  variable  Cor  interpolation 

Li  LLBL+ 1 

L2  LLBU-1 

SAL  PH  correction  Cactor  Cor  angle  of  attack 

S(body)  /S(BCSS) 


READ  STATMENTS: 
WRITE  STATEMENTS 


K , KK,  ETA(K),  XIN(J),  RECU(K,J),  RBCL(K,J),  L, 
LL,  ZT  (L)  , FV(L-LLBl,  J) 


SUBROUTINE  GEOBRX 


PURPOSE:  rectangular  body;  coaputes  body  aesh  pts. 

in  coarse  exterior  aesh 

CALL;  froa  SETUPX 

CALL  STATEMENT:  no  arguaents 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

QUIKX  generate  slopes  froa  body  line  input 

SLOPY  to  do  the  streanvise  interpolation 

SLOPQ  to  interpolate  for  upper  and  lower  body  slopes 

DATA  TO  COMMON 


COMMON 

VARIABLE 

INDEXX 

KROOTX 

BOD  V 1 

X NOSEX 
XTAILX 
JNOSEX 
JTAILX 
KBNXX  (J) 

B0DV2 

NBPTSX  (J) 

L BU  X (K  , J) 
LBDX  (K,  J) 
FYX 

BODV3 

LLBLX 

LLBUX 
KBMAXX 
RBCUX  (K,J) 
RBCLX (K, J) 
DRBCUX 
DRBCLX 

MAIN  INTERNAL  SUBROUTINE  VARIABLES; 

VARIABLE  DESCRIPTION 

CO E 1 local  difference  coefficient 

COE2  local  difference  coefficient 

A OP A ALPHAW/57. 29577951 
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IUIN  INTERNAL  SUBROUTINE  VARIABLES  (cont.) 

KBS 
NPTS 
KB 

DXO  (J) 

OIL  (J) 

LI 
L2 

SALPHX 


READ  STATEMENTS:  none 
WRITE  STATEMENTS: 

K,  KK.  ETAX(K),  J,  XINX(J),  BBCUXJK,  J)  , RBCLk  (K  ,J)  , 

L,  LI#  ZTX  (L) « FYX (L-LLBLX# J) 


K 

2*KBS*LLBUX-LLBLX-1 

KBS-1 

local  variable  Cor  Interpolation 
local  variable  Cor  interpolation 
LLBLXM 
LLBUX-1 

correction  Cactcr  for  angle  of  attack. 
S (body) /S (BOSS) 
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SUBROUTINE  TCOEF 


PURPOSE:  csaputes  difference  coefficients  with  respect  to 

fine  mesh 

CALL:  from  MAIN 

CALL  STATEMENT:  no  arguments 

SUBROUTINES  CALLED: 

DESCRIPTION 

to  prepare  coefficients  for  potential  jump  and 
gamma  interpolation  (used  for  circular 
body  only) 


VAR  IABLE 

XIL  (J) 
XIR  (J) 
XIC  (J) 
ETAL(K) 
ETAR  (K) 
ETAC  (K) 
COEL 
CO  EU 
ZLVU 
ZRVU 
ZCVU 
ZL  VL 
ZRVL 
ZCFL 
P ARM  A 1 

A2 
A3 
A 4 
AS 
C2 
COE 
CK  1 (K) 
CK2  (K) 
CK3  (K) 

CK  4 (K) 


SUBROUTINE 

GCALC 

DATA  TO  COMMON: 
COMMON 
INTER 
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DATA  TO  CONHON  (cont.) 


CR5  1 (K) 
CK52(K) 

XYCOE 

XI  YK  (K,  J) 
XIYJ(K,J) 

L ARGN 

DJK1  <K,  J) 
DJK  2 (K  , J) 
DJK  3 (K,  J) 
DJK4  (K,  J) 
DJK5  (K,  J) 
DJK  6 (K, J) 
DJK7  (K,  J) 
DJK8  (K#  J) 
DJK9  (K,  J) 
DJK  10  (K  ,J) 
DJK  1 1 (K,J) 

LCO 

DEI 

DE2 

DE3 

DL 1 

DL2 

DL  J 

DH  1 

DH  2 

DH  3 

L CO  X 

DK  1 

DK  2 

DK  3 

H IN  (>BC 

ZLWL 

7.RWU 

MAIN  INTERNAL 


SUBROUTINE  VARIABLES: 


VARIABLE 

DESCRI PTION 

Cl 

1/CORD  (K) 

ZL 

1/  ( ZT  (L)-ZT  (L-  1) ) 

ZR 

1/  (ZT  (L*1)  -ZT (L)  ) 

ZC 

1/  (ZT  (LM)-ZT  (L-1)  ) 

HI 

local  ZT  difference 

H2 

local  ZT  difference 

ZO 

trefftz  plane  ZT  difference 

Z A 

trefftz  plane  ZT  difference 

ZB 

trefftz  plane  ZT  difference 

DZ  1 

1 / (Z  A-Z  B) 

CP 

(CORD  (K  ♦ 1)  ♦ CORD  (K)  ) *.5 

Cft 

(CORD  (K ) *CORD (K-1) ) *.5 

cc 

1 /CORD  (K) 

C32 

(CORD  (2)  *CORD(2)  ) *.5 

ETA  12 

1/  (ETA  (2)-ETA  (1)  ) 
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DATA  TO  COMMON  (cont.  ) 


X 132  1/(XI  (J-1)-XI(J-2)  ) 

READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 


SUBROUTINE  TCOEPX 


PURPOSE:  coaputes  difference  coefficients 

for  coarse  exterior  mesh 

CALL:  fro*  fl  A IN 

CALL  STATENBNT:  no  arguments 

SUBROUTINES  CALLED:  none 

DATA  TO  CORRON: 

CORRON  VARIABLE 

EXTER  XI LX  (J) 

XIRX(J) 

XICX  (J) 

ETA  LX  (K) 

ETARX  (K) 

ETACX(K) 

ZLVLX 

ZRVLX 

ZCVLX 

ZCVUX 

ZLVUX 

ZRvnx 

PARN  C K IX  (K) 

CK2X  (K) 

LC OX  DL 1 X (L) 

DL2X  (L) 

DL3X  (L) 

DE1X  (J) 

DE2X  (J) 

DE  IX  {.T) 

DH 1 X (J) 

DH2X  (J) 

DU  3 X (J) 

OKI  (K) 

DK2  (K) 

DK3  (K) 

LARGX  DJK IX  (K  ,J) 

D JK  1 0X  (K,  J) 

DJK11X(R,J) 

RAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 


DESCRIPTION 


SUBROUTINE  HESHIN 


POP  POSE:  interpolation  searches,  and  storage  of  aesh 
index  location  and  aesh  interpolation  ratios 

This  routine  deternines  the  indices  of  coarse 
aesh  points  surrounding  a given  fine  aesh  point. 
This  inforaation  is  used  in  interpolating  PHI 
on  the  fine  aesh  boundaries. 

CALL:  froa  BAIN 

CALL  STATEMENT:  no  arguaents 

SUBROUTINES  CALLED:  none 

DATA  TO  COMMON: 

COMMON  VARIABLE 

MESHCO  J EX  ( K # J) 

DXEX  (K  , J) 

KEX  (K) 

DYEX (K) 

LEX  (L) 

DZ  EX  (L) 

KEXB 

LEXB 

DYEXB 

DZEXB 

JCUP 

JCDN 

KIN  (KX) 

DYIN  (KX) 

JINK(KX,JX) 

JIN  KM  1 (KX, JX) 

K IN  B 
DYINB 
LI  N (LX ) 

DZIN  (LX) 

LINB  (LX) 

DZINB(LX) 

READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 


SUBROUTINE  1INGCO 


PURPOSE:  generates  wing  boundary  conditions 

CALL:  from  RAIN 

CALL  STATEMENT:  no  arguments 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

scales  airfoil  ordinates  to  a 
0-1  reference  frame,  and  optionally 
smooths  the  airfoil  ordinates  in  arc 
length  (both  x&y  vs  s) 
interpolates  optional  twist  table  to 
ETA  grid  locations 
compute  airfoil  slopes 

statement  function  for  linear  interpolation 

DATA  TO  COMMON: 

COMMON  VARIABLE 

INDEX  JLE(K),  redefined  if  1st  mesh  point  is  too 

close  to  leading  edge 

WINGBC  TWIST  (I) 

WBCU  (K,  J) 

WBCL  (K,  J) 

WINGX  WBCUOR  (K,J) 

WBCLOR  (K, J) 

N5BL  XOUTA 

ZOCU 
ZOCL 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

.0 17453293*ALPHAW 
H ACHNO**EH  EXP  (2) 

180/PI 

ETA  (IJ/SSPAN 
NP  AN-  1 
Nvl 


AO  F A 
WCOE 
RAD 

ETAKD(I) 

NPANN1 

NP1 


SCALE 

SLOPY 

SLOPY2 

PLIN 
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CR 

CORDIN  (N) 

CT 

CORDIN  (NP1) 

RF  ACT  1 

used  to  automatically  include  Riegels* 

f ac 

when  the  leading  edge  and  XI=0  line  do 
coincide 

not 

TWSTR 

THETP  (N )/RAD 

TWSTT 

TH ETP  (N*- 1 ) /RAD 

ZLER 

CR*SIN  (TWSTR) 

ZLST 

CT*SIN  (TWSTT) 

y 

ETA  (K ) /SSP  AN 

c 

CORDW(K) 

NX 

J2-JH  1 

J 3 

J-JH  1 

X OUT 

(X  (K,J)  -XLEW  (K)  ) )/C 

LS 

K 

YR 

Y P ( N) 

YT 

YP  (NP  1) 

ZLE 

FLIN  (ZL  ER  , ZLET,  Y,  YR  , YT) 

THETA 

TWIST(K)  *RAD 

INL 

INLX  (N) 

INT 

INtJX  (N) 

JO 

NX*J 

JL 

NX* 1-J 

120 

local  upper  surface  Z*  s 

QL 

local  lower  surface  Z*s 

DZO 

local  upper  surface  dZ/dX’s 

DZL 

local  lower  surface  dZ/dX's 

TEMPL 

DZL  (J)  /SQRT  ( 1 . 0*  RF  ACT  t * DZL  ( J)  **2) 

TEMPO 

DZU  (J)  /SQRT  (1.  0*RFACT1  *DZ0  (J)  **2) 

READ  STATEMENTS:  none 
WRITE  STATEMENTS: 

H,  KOUT(M),  QV  IK)  , QL(N),  DZO(M),  DZL  (M)  , DDZO  (H)  , DDZL(M) 
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SUBROUTINE  TOPBOD 


3 


PURPOSE:  substitutes  wing  slopes  for  body 

slopes  on  body  (not  used  in  present 
version  of  code) 

CALL:  fro*  RAIN 

CALL  STATEMENT:  no  arguments 

SUBROUTINES  CALLED:  none 

DATA  TO  COMMON: 

COMMON  VARIABLE 

B0DV3  RBCU  (K,  J) 

RAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

J1  JLE(K) 

J 2 JTE(K) 

J NBC 

READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 


I 


SUBROUTINE  SLOPY 


PURPOSE: 


transforms  (x,y)  pairs  to  another  set  of  x*s 

and  provides  y and  dy/dx  at  the  new  x's  using  cubic  splines 


CALL:  from  GEOMB,  GEOHBR,  GEOBRX,  WINGCO 


CALL  STATEMENT: 

ARGUMENT  DESCRIPTION 


XX 

YY 

NN 

XOUT 

NXX 

Z 

DZ 


x location  of  input  values 
function  values  at  the  XX  locations 
number  of  XX's 

X location  where  Y and  dY/dX  is  desired 
number  of  XOUTS's 

function  values  at  the  XOUT  locations 
function  slope  at  the  XOUT  locations 


SUBROUTINES  CALLED: 


SUBROUTINE  DESCRIPTION 


SPLN! 

SPLN1X 

DFUBB 


spline  fit  routine 
spline  fit  routine 
statement  function 


DATA  TO  COMMON:  none 
MAIN  INTERNAL  SUBROUTINE  VARIABLES: 
VARIABLE  DESCRIPTION 


DX3 
DX  4 
DY  2 
DX  1 
DX  2 
D Y 1 
XP 
Z (I) 
DZ(I) 


X (N-1)  -X  (N) 

1 • 0*  ( { X (N-2)-X(N-1)  )/{X  (N-I)-X(N)) 
DFUBB  (Y  (N)  ,Y  (N- 1)  ,Y  (N-2)  ,DX3,DX4) 
X(2)-X  (1) 

1.0M(X(3)-X(2))/(X  (2)-X{1)) 

DFUBB  (Y  (1)  , Y (2)  ,Y(3)  ,DX1,DX2) 

XOUT  (I) 

YP 

DTP 


READ  STATEMENTS:  none 


WRITE  STATEMENTS:  none 
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SUBROUTINE  SPLN 1 


PURPOSE:  Standard 
CALL:  from  SETUP, 
CALL  STATEMENT: 


NASA  Ames  Spline  Pit  Routine 
SETUPX,  SLOP!,  B LL  AN 


ARGUMENTS  DESCRIPTION 

X independent  variable  input 

I dependent  variable  input 

N number  of  X's 

DY1  1st  or  2nd  derivative  at  lover  end  of  table 

DY2  1st  or  2nd  derivative  at  upper  end  of  table 

K1  *1.  DY 1* 1st  derivative,  *2,  DY1=2nd  derivative 

K2  *1,  DY2=1st  derivative,  *2,  DY2=2nd  derivative 

XP  independent  variable  locations  vhere 

information  is  desired 
YP  function  at  XP 

DYP  function  slope  at  XP 

DYPP  second  derivative  at  XP 

SUBROUTINES  CALLED:  none 

ENTRY  point  SPLN1X  used  for  actual  in te  rplo lation 

DATA  TO  COMMON:  none 

READ  STATEMENTS:  none 

WRITE  STATEMENTS:  none 
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PURPOSE:  Standard  NASA  Anes  smoothing  routine 

CALL:  fro*  SCALE,  VISCFL 

CALL  STATEMENT. 

ARGUMENT  DESCRIPTION 

T function  value,  routine  returns  with 

smoothed  values 

N number  of  input  values  of  T 

K =1,  end  points  smoothed  also,  end 

points  remain  fixed  otherwise 
X location  of  function  values,  Y(X) 

SUBROUTINES  CALLED:  none 

DATA  TO  COMMON:  none 

READ  STATEMENTS:  none 

WRITE  STATEMENTS:  none 


F 


J 


f 


SUBROUTINE  IC 


PURPOSE:  generates  coefficients  foe  interpolation 

and  extrapolation  formulas  and  initializes 

potential  arrays,  also  reads  old  solution  f toa  tape  or 

disk  in  order  to  restart  calculation 

CALL:  f ro*  MAIN 

CALL  STATEMENT: 

ARGUMENT  DESCRIPTION 

ITER  set  to  zero  or  read  fro*  saved 

solution 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

GCALC  setup  of  potential  jump  and  gamma  calculation 

(circular  body  only) 

INTERP  interpolate  to  another  mesh  if  MSHINT 

is  true 

VTRANS  interpolation  of  old  boundary  layer  slopes  to 

new  grid 

DATA  TO  COMMON: 


COMMON 

VARIABLE 

INTER 

PDUH(K) 

JUMP 

AZU 

AZL 

BZU 

BZL 

CZU 

CZL 

PJUHP(K,J) 

LARGN 

PF(L,K.J) 

L AR  GX 

PC  (L,K,J) 

OLD 

PJUHPO 

JHO 

KHO 

LHO 

LNUO 

XIO  (J) 

337 


ET AO  (K) 

ZTO  (l) 

PJONPT(K) 

PINE 

NAIN  INTERNAL  SOBROOTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

ITER  9 or  last  value  of  previous  solution 

N KBMXO(J) 

ZTWING  (ZT  (LWINGU)  +ZT  (IWINGL)  ) /2 

FEAD  STATEMENTS: 

ITERO,  JNO,  KHO,  LUO,  LWUC,  KTO,  XIO(J)  , ET  AO  ( K)  , ZTO(L), 

J NOSEO,  JTAILO,  KBHXO(J),  LBUO(K,J),  LBDO(K,J),  PJUNPO(K), 
PF  (L,K,J) 

WRITE  STATEMENTS: 

ITERO,  JNO , KHO,  LMO,  LWOO,  KTO , PJOMPO(K),  XIO(J), 
ETAO(K),  ZTO  (L) 


1 


SUBROUTINE  I NTS  BP 


PURPOSE:  linearly  interpolates  previously  stored  solution 

for  use  as  initial  conditions 

CALL:  froa  IC 

CALL  STATEMENT:  no  arguments 
SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

READEC  (block  data  transfer)  CDC  version  only 

DATA  TO  COMMON: 

COMMON  VARIABLE 

OLD  PJUMPT(K) 

LARGN  PE 

READ  STATEMENTS: 

PF  (L#  K, J)  , PC  (L, K,  J ) 

WRITE  STATEMENTS: 

PD(Lf  K) 
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PURPOSE : 


SUBROUTINE  SOLVE 


the  control  subroutine  for  the  SLOR 
algorithm;  setup  and  solution  of  tridiagonal 
matrix  system  in  fine  interior  grid 


CALL:  from  MAIN 


CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


ITER 

ITERF 


CON  VG 


total  number  of  iterations 
number  of  fine  grid  iterations  for 
this  submission  (compared  to  MAXI T to 
determine  when  iteration  limit  is 
reached) 

logical  variable  to  indicate 
convergence  criteria  satisfied 


SUBROUTINES  CALLED: 


SUBROUTINE  DESCRIPTION 


DBNDY 

FARBDY 

GCALC 

PHIBOD 

HURMAN 

XLDX 

READEC 

WRITEC 

TEST 

DATA  TO  COMMON: 

COMMON 

INTER 

INDEX 
FLAGS 
RELAX  P 


set  downstream  p values 

calculate  PHI  on  fine-coarse  mesh  interface 
interpolate  gamma  (for  circular  body  only) 
calculate  PHI  on  body  surface  (circular  body 
only) 

used  to  modify  boundary  conditions  downstream 
of  shock  to  simulate  shock-b.l.  interaction 
integration  of  PJUMP  to  get  lift 
(block  data  transfer)  CDC  version  only 
(block  data  transfer)  CDC  version  only 
statement  function 


VAR IABLE 

PDUH 

EDUM 

JP  1 

ISAVE 

KOUNT 

NSUP 


3^0 


TATA  TO  CONNON  (cont.) 


BIGRL 

ERROR 

JRD 

KRD 

LRD 

JE 

KE 

LE 

RESIDJ  (K) 

JO  HP  COPF 

SCRACH  HU 

POLD 

VC 

VC2 

EPLT  ERROF 

CEF 
RSDOF 
CRF 
ERRF 
RSDF 

HAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 

DESCRIPTION 

KLAST 

KTIP-KROOTH 

KB 

K BH  X ( 1 ) 

COE2 

(ETA  (KB  ♦ 1 ) -0.5*  (ETA  (KB)  *ETA  (KB-  1)  ) ) / (ET A (KB+  1 ) 
-ETA  (KB) ) 

COE  1 

1-COE2 

NESK 

JHAX*KHAX*LHAX 

CON  V G 

logical  variable  to  signal  convergence 

ITERP 

ITERPM 

ITER 

ITER  ♦ 1 

RSDAV 

average  residual  in  Cine  mesh 

ERR  AV 

average  error  in  fine  mesh 

J 

streamvise  computational  plane  counter 

CLG 

-CO  E*  XLOA  D/  (CA V*SS  PA  N) 

DENN 

ETA(HH)  **2  *C2  *ZT  ( M)  **2 

RDST 

SQRT  (X (HM,  1) **2*A1*DENH/C2) 

P 

the  potential  function  PHI 

DE2W 

DE2  (J)  *WI 

EPS  X 

time  dependent  solution  like  damping  factor 

DEN  UP 

upper  grid  boundary  distance 

RUP 

far  field  b.  c.  factor 

DENDN 

ETA  (H)  **2*C2*ZT(  1)  **2 

R DOW  N 

far  field  b.c.  factor 

DEN  SID 

ETA  (KNAXX)  **2*C2*ZT  (H)  **2 

DE  1J 

DEI  (J) 
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FAIN  INTERNAL  SUBROUTINE  VARIABLES  (cont.) 


DE2  J 
DE3J 
DH1 J 
L 1 
L2 
JP 
JMt 
Jtl  2 
PJrt  AX 
JPS 
J P IS 
DE2W 
R DOWN 
RSI  D 
K PI 
KPI  1 
DEI  J 
DE2J 
DE3J 
D H 1 J 
DH2J 
DH3J 
D 1 
D 2 
D3 
D4 
D 5 
D6 
D7 
D 8 
D9 
DIO 
Dll 
CC  1 
CC2 
CC3 
ecu 
CC5  1 
CC52 
PXfl(L) 
PXP  (L) 
0 
D 
A 
C 

PXI 

PY 

COED 

JWBC 


DE2  (J) 

DE3  (J) 

DH  1 (J) 

2 

LMA  XI 

J plane  in  moving  J plane  "window" 

JP-1 

JP-2 

maximum  change  in  PJUMP  at  each  iteration 

JP 

JP1 

DE2  (J)  *WI 

far  field  b.c.  factor 
far  field  b.c.  factor 
K ♦ 1 
K-1 

DE  1 (J) 

DE2  (J 
DE3  (J) 

DH 1 (J) 

DH 2 (J) 

DH3 (J) 

DJK 1 (K,  J) 

DJK2  (K,  J) 

DJK  3 (K,  J) 

DJK4  (K,  J) 

DJK5  (K , J) 

DJK6  (K,  J) 

DJK7  (K,  J) 

DJK  R (K,  J) 

D.>K9(K#  J) 

DJK 10  (K,  J) 

DJK  1 1 (K  , J ) 

CK  1 (K) 

CK2  (K) 

C K 3 ( K) 

CK4  (K) 

CK  5 1 (K) 

0*52  (K) 

(P(L,K,JP)-POLD  ( L,  K , II 2) ) *X  I L ( J ) 

(P(l,K,  JP1)  -P(L,K,  JP)  )*XIR(J) 
tridiagonal  matrix  array 
tridiagonal  matrix  array 
tridiagonal  matrix  array 
tridiagonal  matrix  array 
. 5 * ( PX  P (L)  ♦ PXtl  (L) ) 
dissipation  term 
2*CORD  { K)  * VC  (I,  K,I1 ) *PI 
Jf 1-JL  E (K) 


MAIN  INTERNAL  SUBROUTINE  VARIABLES  (cont.) 


LA 

LBD (K,J) 

L3 

LBU (K, J) 

L 

sidewall  countec 

CORD1 

.5*  (CORD  (K)  ♦CORD  (K*  1 ) 

CORD2 

. 5*  (CORD  (K)  ♦CORD  (!<♦  1) 

ABS!) 

ABS (D(L) ) 

P XT 

EPS  X 

DNOM 

1/(B(1)-A  (1)  *B  (1-1)  ) 

ITS  M 1 

LH AX-3 

I 

LMAX  1 -I I 

RESID 

D CD 

ARESID 

ABS (R  ES ID) 

PTEL 

lower  extrapolation  t 

PJNSW 

updated  PJUMP  value 

A PJ 

ABS  (RES  IDJ  (K)  ) 

KPJ 

K 

SRRI 

ERROR 

RSDI 

BIG  RL 

ERRL 

ALOGIO  (EPROF) 

BSDL 

ALOGIO  (RSDOF) 

PEAD  STATEMENTS: 

none 

WRITE  STATEMENTS 

: 

ITER,  ERHO 

R,  ERRAV,  JE,  KE,  LE , B 

KRD,  LRU, 

NSUP,  CLG  , P JM A X , KPJ, 

PJUHP 


IGRL,  RSDAV, 
RESIDJ  (K ) 


3^3 


JRD, 


SUBROUTINE  STORE 


PURPOSE:  stores  the  solution  for  later  interpolation 
to  finer  aesh 

CALL:  fro*  (IAIN 

CALL  STATEMENT:  no  arguments 

SUBROUTINES  CALLED:  none 

DATA  TO  COMMON: 

COMMON  VARIABLE 

OLD  XIO(J) 

KBMXO  (J) 

ETAO  (K) 

Z TO  (L) 

LBtJO  (K,U) 

LBDO  (K, 0) 

Pi7 UMPO  (K) 

JMO 

KHO 

LHO 

JTA ILO 
JNOSFO 
LRU  0 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

JNDX  JTE  (K) 

READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 
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StJB  ROUTI  HE  PAPBCI 


PURPOSE:  calculates  PHI  on  exter ior- inte riot  aesh  interface 

CALL:  froa  SOLVE 

CALL  STATEMENT:  no  arguaents 

SOBROOTINES  CALLED: 

SUBROUTINE  DESCRIPTION 


PRINT 


interpolates  PHI  froa  coarse  to  fine  aesh 
points 


DATA  TO  COMMON: 


C OH  HON 


VARIABLE 


LARGN 


READ  STATEMENTS:  none 


WRITE  STATEMENTS:  none 


SUBROUTINE  SOLVEX 


PURPOSE:  setup  and  solution  of  tcidiagonal  matrix 

system  in  coarse  exterior  cartesian  grid 

CALL:  from  MAIN 

CALL  STATEMENT: 

PROGRAM  ARGUMENT  DESCRIPTION 

MAIN  ITER  total  number  of  iterations 

IT  EC  total  number  of  crude  gid  iterations 

in  this  submission 
CONVG  convergence  of  crude  grid 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

body  surface  boundary  interpolation  from  fine 
mesh  solution 

(block  data  transfer)  CDC  version  only 
wing  surface  boundary  interpolation  from  fine 
mesh  solution 

(block  data  transfer)  CDC  version  only 
statement  function 

DATA  TO  COMMON: 


COMMON 

VAR IABLE 

INDEXX 

JP  1 X 

FLAGS 

ISAVE 

REL AXP 

KOUNT 

NSUP 

BIGRL 

ERROR 

JP  D 

KRD 

LRD 

JE 

KE 

LE 

SCRACH 

HU 

POLD 

VC 

BODBDY 

READEC 

MNGBDY 

WRITEC 

TEST 


*1 


r 
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,1 


E PL  T ERROX 

CEX 
BSD  OX 
CRX 
ERR  X 
RSDX 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARI  ABLE 


DESCR IPTION 


KB 

COE  1 

MESH 

ITER 

ITERC 

RSDAV 

ERR  AV 

DENN 

RDST 

JP 

JP1 

JN2 

DE2» 

EPSX 

DEN'JP 

RUP 

OENDN 

RDOHN 

DENSID 

R S ID 

K P 1 

KN1 

PXH  (L) 

PXP  (L) 

B 

D 

A 

C 

Cl 

LA 

LB 

ABSD 
PXT 
D NON 
ITS  N t 
RES  ID 
ARESID 
ERRI 


KBNXX(I) 

1-COE2 

JNAXX*KNAXX*LHAXX 
ITER* 1 
ITERC*  1 

average  residual  in  crude  grid 
average  error  in  crude  grid 
ETAX  (HN)  **2*C2*ZTX  (R)  **2 
SQRT  (XX  (1)  **2*  A 1*  DENH/C2) 

J plane  in  noving  "window" 

JP*  1 
JP-2 

DE2X  (J)  *WIX 

dissipation  factor  (tine* like  damping) 

far  field  b.c.  factor 

SQRT  (XX  (J)  **2*A1*DENUP/C2) 

far  field  b.c.  factor 

far  field  b.c.  factor 

far  field  b.c.  factor 

far  field  b.c.  factor 


(PP(L,K,JP)  -POLT  (L,  K,  112)  ) *XI  LX  (J) 
(PP(L,K,JP1)-PP(L,K,JP)  )*XIRX  (J) 


tridiagonal  natrix  s 
tridiagonal  natrix  £ 
tridiagcnal  aatrix  : 
tridiagonal  natrix  s 
1/COR DX 
LL  BLX*  1 
LLBUX-1 
ABS  (D  (L) ) 

EPS  X 

1/(B(H-A  (I)  *B  (1-1)  ) 

LNAXX-3 

D(L) 

ABS  (RES  ID) 

ERROR 


natrix  solution  array 
natrix  solution  array 
natrix  solution  array 
natrix  solution  array 
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MAIN  INTERNAL  SUBROUTINE  VARIABLES  (cont.  ) 


BIG  RL 

ALOGIO  (PFROX) 

ALOGIO  (RSDOX) 

logical  variable  to  indicate  crude  grid 
convergence 


RSDI 

ERPL 

RSOU 

CONVG 


FEAD  STATEMENTS 


none 


ITER,  ERROR,  ERRAV , JE,  KE,  LE,  BIGRL,  RSDAV,  JPO 


SUBROUTINE  WNGBDV 


I 

PURPOSE:  calculates  PHI  at  Ming  surface  by 

interpolating  from  the  fine  mesh 
solution 


CALL:  from  SOLVEX 


1 


CALL  STATEMENT:  no  arguments 
SUBROUTINES  CALLED: 


SUBROUTINE  DESCRIPTION 

PCINT  interpolation  of  PHI  from  fine  to  coarse 

mesh  points 

DATA  TO  COMMON 

COMMON  VARIABLE 

JUMP  PJUNPX 

LARGX  PC  ( LX  , K X#  J X) 


READ  STATEMENTS:  none 


SUBROUTINE  BODBDT 


PURPOSE:  interpolates  PHI  at  body  surface  fron 

the  nesh  solution 

CALL:  froa  SOLVEX 

CALL  STATEMENT:  no  arguaents 

SUBROUTINES  CALLED: 


SUBROUTINE 

DESCRIPTION 

PCINT 

interpolation  of  PHI  froa  fine  to  coarse 
nesh  points 

'O  COMMON 

COMMON 

VAR  TABLE 

JUMP 

PJURPX 

LARGX 

PC  (LX,KX, JX) 

NTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE 

DESCRIPTION 

LA 

LLBLX+  1 

LB 

LLBOX-  1 

JX  1 

JCUP* 1 

JX2 

JCDN-1 

J2 

JINK  (1, JX) 

J1 

J 2-  1 

DX 

(XX  (JX)  - X ( 1 , J 1)  )/  (X  (1,J2)-X  ( 1 # J 1) ) 

K 2 

KINB  (KX) 

K 1 

K2-  1 

DY 

DYINB  (KY) 

DZ 

DZINB(LLBUX) 

L 2 

LI NB (LLBUX) 

LI 

L2-  1 

FI 

PJ UNP  (K  t,J1)+  (PJUMP(K1,J2)-PJUBP(K1,J1)  )*DX 

F 3 

PJUNP(K2,  J 1)  ♦ (P JUMP  (K2#  J2)  - PJUMP  (K2,  J1)  ) *DX 

READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 


350 


. >•  J 1 


SUBROUTINE  GCRLC 


PURPOSE:  to  interpolate  gamma;  put  into 

two-dimensional  array  PJUMP 


CALL:  from  TCOEF,  IC,  SOLVE 

CALL  STATEMENT: 

ARGUMENT  DESCRIPTION 
KODE 
PJ  NEB 

SUBROUTINES  CALLED:  (none) 

DATA  TO  COMMON: 

VARIABLE 


= 1 sets  up  coefficients 
=2  evaluate  PJUMP  using  PJNEB 
potential  jump  at  trailing  edge 


COMMON 

JUMP 


KPINDX 
PCOEF  (K,J) 
PJUNP(K,J) 


MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 

DESCRIPTION 

KRM  1 

KROOT-1 

KRP  1 

KFOOT ♦ 1 

JTEHIN 

minimum  J at  trailing  edge 

ETIP 

.5*  (ETA  (KT  IP)  *ETA  ( KTM  1)  ) 

RSAME 

logical  to  test  on  R(J) 

RJS 

R (J)  **2 

PJNEB  (K  TIP) 

0 

JJ 

J-1 

R FACT 

located  in  equivalence  statement 

ENEB  (K) 

located  in  equivalence  statement 

EAD  STATEMENTS: 

RITE  STATEMENTS: 

none 

in  INTER 


K,  KK,  L 
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SUBROUTINE  DBNOY 

I I 


PURPOSE:  to  solve  downstream  trefftz  plane  in  fine  aesh 

(used  when  calculating  fine  aesh  alone,  EXTMSH  = P) 

CALL:  froa  SOLVE 

CALL  STATEMENT:  no  arguments 

SUBROUTINES  CALLED:  (none) 

DATA  TO  COMMON: 


COMMON 

V ARI ABL E 

RELAXP 

BIGRL 

JR  D 

KRD 

LRD 

ERROR 

JE 

KE 

LF. 

PARRY  P 


MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 

DESCRIPTION 

C2I 

1/C  2 

ESQ 

C2I * ET A (PC)  **2 

XSQ 

X (K, JMAX) **2 

RD 

SQRT (XSQ*A 1*  (ESQ+ZT  (L) **2) 

2T1 

ZT  (1) 

ZT2 

ZT  (LM AX) 

2T1SQ 

C2*ZT 1**2 

2T2SQ 

C2*  ZT2**2 

TCOF1 

2*COFF*ZT1 

TCOF2 

2*COFF*ZT2 

ETASQ 

ETA  (K)  **2 

TCOF 

2*COFF 

A 

tridiagcnal  aatrix 

coefficient 

B 

tridiagonal  aatrix 

coefficient 

C 

tridiagonal  aatrix 

coefficient 
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(IAIN  INTERNAL  SUBROUTINE  VARIABLES  (cont.) 


0 

L 1 

L2 

DDT 

ABSD 

DNOH 

AR  ESI D 

READ  STATEMENTS: 
WRITE  STATEMENTS: 


tridiagcnal  Kttii  coefficient 
LBD { K, J MAX ) 

LBO  ( K , J n A X ) 

ETAR  (K)  *ETAC  (K) 

ABS (D (L) ) 

1/  (B  (L)  -A  (L ) * B (L- 1 ) ) 

ABS  (D  (L) ) 

none 


none 
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PURPOSE:  to  solve  downstream  trefftz  plane  In  coarse  mesh 

(not  used) 

CALL:  from  SOLVEX  when  used 

CALL  STATEMENT: 

SUBROUTINES  CALLED:  none 
DATA  TO  COMMON: 


COMMON 

VARIABLE 

RELAXP 

BIGRL 

JRD 

KRD 

LRD 

ERROR 

JE 

KE 

LE 

PARRY 

P 

MAIN  INTERNAL 

SUBROUTINE  VARIABLES: 

VARIABL 

S DESCRIPTION 

JP1 

JP  IX 

C2I 

1/C2 

ESQ 

C2I*ETAX(K) ** 2 

XSQ 

XX ( JMAXX) **2 

RD 

SQR  T { XSQ  ♦A  1*  (ESQ+ZTX  (L)  **2)  ) 

ZT  1 

ZTX  (1) 

ZT2 

ZT X (LMAXX) 

ZT1  SQ 

C2*  ZT  1**2 

ZT2SQ 

C2*ZT2**2 

TCOF1 

2*COFF*ZT1 

TCOP2 

2*COFF*ZT2 

ETASQ 

ETAX(K)  ** 2 

TCOF 

2*COFF 

A 

tridiagonal  matrix 

coefficient 

B 

tridiagonal  matrix 

coefficient 

C 

tridiagonal  matrix 

coefficient 

D 

tridiagcnal  matrix 

coefficient 
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MAIN  INTERNAL  SUBROUTINE  VARIABLES  (coot.) 


LI 

LLBLX+ 1 

L2 

LL  BUX- 1 

DDT 

ETARX  (K)  * ETACX  (K) 

A BSD 

ABS (D (L) ) 

DNON 

1/  (B (L) -A  (L)  *B ( L— 1 ) ) 

ITSM1 

LN  A XX- 3 

ARES  ID 

ABS (D (L) ) 

READ  STATEMENTS: 

none 

WRITE  STATEMENTS: 

none 
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SUBROUTINE  PHIBOD 


PURPOSE:  conputes  potential  at  circular  body  pts. 

CALL:  from  SOLVE  (not  used  in  present  code) 

CALL  STATEMENT: 

SUBROUTINE  ARGUMENT  DESCRIPTION 
SOLVE  J computation  plane 

SUBROUTINES  CALLED:  none 
DATA  TO  COMMON: 

COMMON  VARIABLE 

LARSN  PF 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 

DESCRIPTION 

CYD 

AFK  (K)  *FY  (N,  J) 

All 

ACL  (2)  *FZ  (N  , J ) 

A 1 2 

CYD+BCL  (2)  *FZ  (N,J) 

DZ  1 

.5/  (ZT  (L+  1 ) -ZT  (L)  ) 

JWBC 

J ♦ 1— JLE  (K) 

A 2 1 

CYD»BCL  (1)  *FZ  (N,J) 

A2? 

CCL  (1)  ♦FZ  (N,  J) 

DNOH 

1/(A11*A22-A12*A21) 

STATEMENTS: 

none 

WRITE  STATEMENTS:  none 
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SUBROUTIN  7 OUTBOD 


[ i 


PURPOSE:  for  data  output  and  catalog  of  circular  body  CP's 

CALL:  from  HA  IN  (not  used  in  present  version  of  pcogran) 

CALL  STATENENT:  no  argunents 
SUBROUTINES  CALLED:  none 
DATA  TO  CONHON: 


CONHON 

VARIABLE 

INDEX 

JP1 

MAIN  INTERNAL 

SUBROUTINE  VARIABLES 

VARIABLE 

DESCRIPTION 

AOFAB 

.0 17453293*ALPHAB 

JEND 

JN  AX-  1 

DJN1 

XI  (J)-XI(J-I) 

DJP  1 

XI  (J*1)  -XI  (J) 

L UN  1 

LBOD  (1,  J-1) 

LUO 

LBOD(1,J) 

LUP1 

LBOD(1,  J*1) 

N 

NBPTS(J) 

NH  1 

NBPTS  (J-1) 

N PI 

NBPTS  (J*1) 

LLN  1 

L BO  D (NH  1 # J — 1) 

LLO 

LBOD  (N,  J) 

LLP  1 

LBOD  (NP1,  J*  1) 

DRN1 

R ( J)  -R  (J-1) 

DBP1 

R (J*1)  -F  (J) 

DSN  1 

SQRT (DJH1**2*DRH1**2) 

DSP1 

SQRT(DJP1**2*DRP  1**2) 

F X 1 

FX (1,J) 

ARCT 

ATAN  (FX  1) 

COST 

COS  (ARCT) 

SINT 

SIN  (ARCT) 

PZU 

-FX  1/FZ  (1,  J)  -AOFAB 

PZL 

-FX1/FZ  (N,  J)  -AOFAB 

CPU 

-2*PXU-PZU**2 

C PL 

— 2*PXL-PZL**2 

A- 
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MAIN  INTERNAL  SUBROUTINE  VARIABLES  (cont. ) 

PXU  ( PS  II- PZU*  SI  NT) /COST 

PXL  (PSL  +PZL*  SINT)/COST 

READ  STATEMENTS:  none 

WRITE  STATEMENTS:  none 


I 


r 

i 

1 

' 

SUBROUTINE  OUTP 

PURPOSE:  computes  and  outputs  wing  surface  CP  and  sonic 

line  values 

CALL:  from  MAIN 

CALL  STATEMENT: 

no  arguments 

3 

SUBROUTINES  CALLED: 

SUBROUTINE 

DESCRIPTION 

1; 

FORCE 

computes  forces  and  moments 

, ■ 

SQRT 

(in  library) 

XL  DX 

integrates  potential  jump  at  trailing  edge  to 
obtain  lift  coefficient 

GRAPH3 

assembles  plot  routines 

BLOOT 

generates  the  input  data  set  required  for 
a N ASH/SC PUGGS  boundary  layer  calculation 

[ 

DATA  TO  COMMON: 

COMMON 

VARIABLE 

INTER 

PDUM 

EDUP1 

LOCAL 

XOC  (K,  J) 

LSONU  (K,J) 

LSONL  (K,J) 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE 

DESCRIPTION 

KLAST 

KTIP-KROOT ♦ 1 | 

J 

J plane  counter  to  locate  downstream  position 

CLG 

-COE*XI.OAD/(CAV*SSPAN) 

ENSQ 

HACHNO**2 

C PST  AR 

(EHSQ-1)/(1.2*EHSQ) 

LW  UP  1 

LWINGU+1 

LWLM1 

LWINGL-  1 

DENMU 

ZT  (LWINGU)  -ZT  (LWUP1) 

ZTWIN3 

can 

(ZT(LWINGO)  *ZT  (LWINGL)  ) ♦.  5 

\ • 

CWU 

Z difference  coefficient  for  CP  calculation 
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NAIN  INTERNAL  SUBROUTINE  VARIABLES  (cont.) 


DENWL 

Z T ( L HI N GL ) — ZT  (LNLN  1 ) 

CWL 

Z difference  coefficient  for  CP 

calculation 

SON  P 

sonic  point 

K BEG 

KROOT 

Cl 

. 5/CORD  (K) 

CUL 

XIL  (J)  *CI 

CUR 

XIR  (J) *CI 

LLBU 

LBU  (K  ,J) 

LBUP1 

LLBU+1 

LLBD 

LBD  (K,  J) 

LBDH1 

LLBD-  1 

LI 

LWI NGL-LL  BD+  1 

L 2 

LH1 

LIU 

LLBU-LW  ING'J  ♦ 1 

L2U 

L 1U*1 

CBU 

upper  body  surface  CP  Z difference 

coef f . 

CBBL 

lower  body  surface  CP  Z difference 

coef f . 

LSI  DE 

LLBU-LLBD* 1 

LSI DEU 

LWINGU-LLBD»1 

COLPZT 

21 .5/ZT  (LH  A X) 

ENU 

upper  surface  Nach  number 

ENL 

lover  surface  Hach  nu aber 

LU 

LSONU  (K ,J) 

ZSONU 

sonic  region  height 

LL 

LSONL  ( K,  J) 

ZSONL 

sonic  region  height 

NSONU 

ZSONU*COLPZT«-NAX  + .5 

NSONL 

Z SONL*COLP  ZT+N  AX*. 5 

N CPU 

NAX-CPU  (K,  J)  * COLPCP  + . 5 

N CPL 

NAX-CPL(K,  J)  ♦COLPC  P*  . 5 

DC  P 

CPL  (K,  J ) -CPU  (K  , J) 

LLBDX 

LLBD+L-1 

JL 

JLE  (K) 

JT 

JTE  (K) 

CPL  (K,  J) 

located  in  equivalence  statenent 

in 

PARN 

CPU  (K, J) 

located  in  equivalence  statement 

in 

SCRACH 

LINE 

located  in  equivalence  statement 

in 

LCO 

PU  (IS) 

located  in  equivalence  statement 

in 

LCO 

P L ( IS) 

located  in  equivalence  statement 

in 

LCO 

READ  STATENENTS:  none 


WRITE  STATENENTS: 


PJUNP  (K,  JTE  (K)  ) , K,  ETASPN,  ETA  (K)  , J,  XOC(K,J), 

CPU (K,  J)  , CPL  ( K , J)  , EMU,  ENL,  DCP,  ZSONU,  ZSONL, 

LINE,  XOC(  K ROOT , J)  , L,  ZT  (LLBDX)  , CPS(L,J),  TITLE,  KTN1, 
JLE(K),  JTE(K) 


A 
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SUBROUTINE  FORCE 


PURPOSE:  calculates  forces  and  aoaents 


CALL:  froa  OUTP 


CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


the  lift  coefficient  coaputed  in  OUTP 
from  the  integration  of  the  potential 
juap  at  the  trailing  edge 


SUBROUTINES  CALLED: 


SUBROUTINE  DESCRIPTION 


SIMP 


DATA  TO  COMMON: 


COMMON 


INTER 


INDEX 


Simpson’s  rule  integration 


FAR  IABLE 

COEU 
COEL 
JWLE 
J HTE 
BODY  1 
BCL 


MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 

HI 
H 2 
AOF  A 
NINT 
JD 

WCOE 

BCIJ 

CM 

C 

KNDX 

CNN 


DESCRIPTION 


.0  1 7453293* ALPHAW 
JHTE- JNLE*  1 
JJ-JNLE+1 
MACHNO**EM  EXP  (2) 

CN-CN* X MOM *CO  FD (KK) /CM  E AN 

KTI P-1CROOT 
C NN/SSP AN 
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CAN 

cm 

cow 

DCP  (JJ) 
DCPI(JJ) 

DC  PS  (J  J) 
CL(KK) 

CD  (KK) 
CHCB(KK) 
CBC2  (KK) 

C AC B (KK) 

READ  STATEBENTS: 
WRITE  STATEBENTS: 


CAN/SSPAN 
CLW/SSP AN 
CDW/SSP  AN 
located  in 
located  in 
located  in 
located  in 
located  in 
located  in 
located  in 
located  in 


squivale  nee 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equi  valence 


statemen  t 
statement 
statement 
statement 
statement 
statement 
statement 
statement 


in  LCO 
in  LCO 
in  LCO 
in  LCO 
in  LCO 
in  INTER 
in  INTER 
in  INTER 


TITLE,  BACHNO,  ALPHAS,  ALPHAB,  CAV,  ZBOB,  N,  ETA  (N) , 
C,  CNCB(N),  CACB(N),  CHC2(N),  CL  (N)  , CD(N),  CNN,  CAN, 
CLH,  CLG,  CDW 


SUBROUTINE  SIMP 


PURPOSE:  the  standard  NASA  Ames  Simpson's  rule  integration 

CALL:  from  FORCE, XL DX, VISC PL 

CALL  STATEMENT: 

ARGUMENT  DESCRIPTION 

integral  of  Y from  X(1)  to  X(N) 
independent  variable 
dependent  variable 
number  of  X's  input 
3 1 - normal  execution 
*2  - N < or  = 1 

= 4 - input  independent  variable  not 
monoton ic 

SUBROUTINES  CALLED:  none 
PITA  TO  COMMON;  none 

• va  * .T»**N»nr  • none 

• f i " # ' * * 


R 

X 

Y 

N 

IEF 


SUBROUTINE  ERPLOT 


PURPOSE:  to  Bake  a plot  of  the  convergence  history 
of  the  largest  residual  and  the  largest 
correction. 

CALL:  froa  RAIN 


CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


= 1 for  fine  grid,  =2  for  coarse  grid 

nunber  of  iterations 

offset  to  ensure  correction  plot 

starts  at  right  of  page 

initial  value  of  correction 

array  of  log  10  (correction) 

offset  to  ensure  residual  plot 

starts  at  right  of  page 

initial  value  of  residual 

array  of  log  10  (residual) 


IGRID 

KOUNT 

CE 

ERRO 

ERR 

CR 

RSDO 

RSD 

SUBROUTINES  CALLED:  none 
DATA  TO  COMMON:  none 


Mil  INTERNAL  TRROnTINV  VARtAIRKS: 

VARIABLE  **f  ,r  •!  rTIOR 

V il»|«li  * MIAlM 

AIR*  nil)  i *4  * - #•  4 print 

lif  fiHilf 

m-i  I | )|  • >#  I • i | | 


SUBROUTINE  SCALE 


PURPOSE:  to  scale  airfoil  coordinates  to  the  local 

chord  and  to  optionally  smooth  the  coordinates 
in  arc  length  (both  x and  y versus  s) 

CALL:  from  HINGCO 

CALL  STATEMENT: 

ARGUMENT  DESCRIPTION 

N the  input  span  station 

number 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

SMTH  standard  NASA-Ames  smoothing 

routine 

DATA  TO  COMMON: 

COMMON  VARIABLE 

ifING  INUX(N)  the  number  of  upper  surface 

points  at  span  station  N 
INLX(N)  the  number  of  lower  surface 

points  at  span  station  N 
XF(I<N)  the  X -coordinates  of  the 

airfoil;  I runs  from  the 
lower  surface  t.e.  to  the 
upper  surface  t.e. 

ZF((<*1  the  Z -coord  l nates  of  the 

« lr  foil 

Hit  | tf  • M M fltlllin 

till  hi  f tfff  tf  ft|rf 

Iff  «|  ##!•# 

lift  It  «|  mIh  i#i  i #t 


H 

i 


CHHD  local  chord  length 

ZREF  Z-coordinate  of  leading  edge 

S array  of  arc  length 

Z local  array  of  X- coordinates 

Z local  array  of  Z- coordinates 

READ  STATEMENTS:  none 

WRITE  STATEMENTS:  none 


L 


SUBROUTINE  SLOPT2 


PURPOSE:  to  compute  wing  surface  slopes  using  spline 

fits  of  x and  z versus  arc  length 

CALL:  from  HINGCO 


CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


X-array  of  airfoil  coordinates 
Z-array  of  airfoil  coordinates 
location  of  leading  edge  point 
nunber  of  airfoil  coordinates 
array  of  X-points  at  which 
slopes  are  reguired 
nunber  of  points  in  XO  array 
array  of  Z-coordinates  at  X0- 
points;  contains  both  upper  and 
lower  surface  points 
array  of  wing  surface  slopes; 
calculated  as  (dz/ds)  / (dx/ds) 


SUBROUTINES  CALLED: 


SUBROUTINE  DESCRIPTION 


SPLIFM 


SPLIP 


DPUB3 


DATA  TO  COMMON: 


spline  fitting  routine  to  fit  XX(SA) 
and  to  determine  the  doubly  defined 
values  of  SI(XO);  also  calculates 
ds/dx 

spline  fitting  routine  to  fit  ZZ(SA) 
and  interpolate  to  find  ZO(SI) ; also 
calculates  dz/ds 
function  statenent  to  determine 
end  point  slopes  reguired  for 
spline  fitting  routines 


MAIN  INTENNAL  Til  B»«>UT  IN  f V AF  T Ah  IP  S: 


V A ■ I AM 


DPM  0 IPT 


• • ^#1  •# 


« I « I 


DZDX1 
DXDS  1 
DZDS1 
DZDX2 
DXDS2 
DZDS2 
SI 

DSDX 

DZDS 

DZO 


= 2*NO 

local  array  for  the  XX  array 
local  array  for  the  ZZ  array 
arc  length  array;  = 0.  at  lover  surface 
trailing  edge 

slope  at  lover  surface  trailing  edge 
dx/ds  at  lover  surface  trailing  edge 
dz/ds  at  lover  surface  trailing  edge 
slope  at  upper  surface  trailing  edge 
dx/ds  at  upper  surface  trailing  edge 
dz/ds  at  upper  surface  trailing  edge 
array  of  arc  lengths  corresponding  to 
XO  points  calculated  in  SPLIFM 
array  of  ds/dx  calculated  in  SPLIFM 
array  of  dz/ds  calculated  in  SPLIF 
airfoil  slopes  = DZDS*DSDX 


READ  STATEMENTS: 


WRITE  STATEMENTS:  none 


SUBROUTINE  SPLIFH 


PURPOSE:  computes  a cubic  spline  through  given  F(S)  and 

uses  Newton's  method  to  interpolate  the  doubly 
defined  array  SI  (FI);  also  calculate  dS/dF 

CALL:  from  SLOP Y2 

CALL  STATEMENT; 


APGUMENT  DESCRIPTION 


i 


L 

N 

S 

F 

PP 

PPP 

FPPP 

NX 

SI 

FI 

FIP 

KM 

VM 

KN 

VN 


location  of  leading  edge  point 

number  of  points  in  S and  F arrays 

array  of  independent  variables 

array  of  dependent  variables 

array  for  storing  dP/dS 

array  for  storing  d2f/dS2 

array  for  storing  d3F/dS3 

number  of  points  in  FI  array 

values  of  S at  each  PI 

array  of  points  for( interpolation 

values  of  dS/dF  at  each  FI 

order  of  derivative  at  left 

end  point  of  S 

value  of  derivative  there 

order  of  derivative  at  right 

end  point  of  S 

value  of  derivative  there 


SUBROUTINES  CALLED:  none 
DATA  TO  COMMON;  none 

MAIN  INTERNAL  SUBROUTINE  VARIABLES:  none 
READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 


SUBROUTINE  SPLIF 


ft 


PURPOSE: 


computes  a cubic  spline  through  given  F (S) 
interpolates  to  determine  FI  (SI)  ; also 
calculates  dFI/dSI 


CALL:  fron  SLOP Y2 


CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


N 

S 

F 

FP 

FPP 

FPPP 

NX 

SI 

FI 

FIP 

KM 


number  of  points  in  S and  F arrays 

array  of  independent  variables 

array  of  dependent  variables 

array  tor  storing  dF/dS 

array  for  storing  d2F/dS2 

array  for  storing  d3F/dS3 

number  of  points  in  SI  array 

array  of  points  for  interpolation 

values  of  F at  each  SI 

values  of  dF/dS  at  each  SI 

order  of  derivative  at  left 

end  point  of  S 

value  of  derivative  there 

order  of  derivative  at  right 

end  point  of  S 

value  of  derivative  there 


SUBROUTINES  CALLED:  none 


DATA  TO  COMMON:  none 


MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


READ  STATEMENTS:  none 


WRITE  STATEMENTS:  none 


SUBROUTINE  XMESH 


PURPOSE:  C3ip.it  es  the  X-directicn  grid  distribution 

for  an  airfoil  from  an  analytical  stretching 
function 

program  contributed  by  Terry  Holst,  NASA  Anes 
CALL:  from  PINGRD 

CALL  STATEMENT: 

ARGUMENT  DESCRIPTION 

X output  array  containing  XI  grir 

DXLE  grid  spacing  at  l.e.  (chords) 

DXTE  grid  spacing  at  t.e.  (chords) 

DXMAX  max  grid  spacing  on  the  airfoil 

NI  number  of  XI  grid  points  generated 

NF  number  of  grid  points  upstream  of 

airfoil  leading  edge 

NB  number  of  grid  points  downstream 

of  airfoil  trailing  edge 
XDIST  total  extent  of  XI  grid 

XLE  x distance  from  front  of  grid  to  l.e. 

I0UT1  =1  to  print  out  grid  distribution 

I0UT2  = 1 to  print  out  iteration  parameters 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

FAUX  statement  function 

FUN  statement  function 

DATA  TO  COMMON:  none 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

RFACT  .3 

A 2 

DXMAX  DXHAX/1.1 

Z2 

A 1 .06 25-.  25*Z2 


371 


MAIN  INTERNAL  SUBROUTINE  VARIABLES  (cont.) 


A2 

• 1 2 5* A*  1 

A3 

X N * *4-Z  2*X  N **2 

A4 

A*TN**3+1 

A5 

A4/A2 

D 1 

DXLE/(DXSAX*A5) 

02 

DXTE/  (DXHAX*A5) 

A6 

XH*D1*.  5 

A7 

D1-  1 

A8 

A 1- A3*D  1 

A9 

XN  *D  2-.  5 

A 1 0 

D2-  1 

All 

A1- A3*D2 

B 

(A  6*  A 11  -A  8*  A9)  *DENOM 

C 

(A  10*A8-A7*A1 1)  *DENOH 

0 

A2*  DXL E/ (A 1-.5*C*B) 

CA 

A *X  N 

CB 

XN  **2 

Cl 

3 *CA*XN 

C 2 

CB*  (CB-Z2)  *C* XN *B 

C3 

CA  *CB*  1 

C4 

(4*CB-2*Z2) *XN*C 

C5 

6*CA 

C6 

12*CB-2*Z2 

FUNX 

-C  1*C2*C3*C6 

FUMXX 

-C5*C2  *C3*C6 

XNP 

XN-FUNX/FUNXX 

XI 

XN+.5 

NF2 

N F*  2 

ETE 

.5*  (ETEH  + ETEL) 

ELE 

.5*  (EL  EH*FL  EL) 

IS 

I-  1 

TOL 

1.  1*DXHAX 

XTE 

XDIST-XLE 

E2 

(E2L*E2H)  *.5 

NFS 

NF-  1 

E 1 

(E 1L  *E  1 H)  * . 5 

IX 

NF-I 

IXP 

IX*  1 

XNORS 

1/X  (NTE) 

READ  STATEMENTS:  none 
WRITE  STATEMENTS: 

I,  X (I)  , D X 
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SUBROUTINE  XC2 


PURPOSE:  crude  X aesh  generation 
CALL:  from  SETUP! 

CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 

XLE  leading  edge  location 

XTE  trailing  edge  location 

KTH  1 nuaber  of  span  staions 

XI N output  crude  X gr  id 

JMAX  nuaber  of  X* s generated 

XOR  origin  of  XI  grid 

CORD!  root  chord  of  XI  = 1-x  = 0 line 

I0UT1  grid  iteration  output 

KROOT  1st  span  station  to  consider 


SUBROUTINES  CALLED:  none 


DATA 

TO  COMMON: 

none 

MAIN 

INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE 

DESCRIPTION 

CM  IN 

aininua  chord  on  wing 

CM  AX 

aaxiaua  chord  on  wing 

XN  AX 

aaxiaum  X of  trailing 

edge 

XMIN 

ainiaua  X of  leading 

edge 

JMAX 

30 

DEL 

. 3*CHIN 

NU 

.6*JMAX 

ND 

JMAX-NU 

NA 

NU  ♦ 1 

DX 

DXH  UDDX 

XUD 

(XA  (NA)  -XOR)/CORDX 

XDOWN 

(X  (N  D)  — XOR  ) /CORDX 

READ 

STATEMENTS: 

none 

WRITE  STATEMENTS 

. 

XIN  (I)  t N 
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SUBROUTINE  BEND 


PURPOSE:  generates  the  mesh  bending  at  wing- body  junction 

for  both  the  initial  and  fine  meshes 

CALL:  from  SETUP  and  FINGRD 

CALL  STATEMENT:  no  arguments 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 


FLIN 


DATA  TO  COMMON 


COMMON 


RING 


statement  function  for  linear  interpolation 


VARIABLE 

If  SO 
NXO 
KXO 
YXO 
XXO 
DXRO 
DX  TO 
NS  1 
NX  1 
KX  1 
YX  1 
XX  1 
DXR  1 
DXT  1 


MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

DY  half  the  range  in  ETA  for  mesh 

bending  = . 05*SSPAN 
KB  value  of  K Cor  ETA.GE.YRB 

KF  value  of  K at  last 

ETA.LE.  ETA  (KB)  ♦2*DY 

READ  STATEMENTS:  none 
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SUBROUTINE  FINGRD 


PURPOSE:  to  generate  the  initial  and  fine  grids 

CALL:  from  SETUP 

CALL  STATEMENT:  no  arguments 
SUBROUTINES  CALLED: 


SUBROUTINE 

DESCRIPTION 

XNESH 

to  compute  the  X-direction  grid  distribution 

3END 

to  check  that  XI  grid  will  cover  planforn 

FLIN 

statement  function  for  linear  interpolation 

DATA 

TO  COMMON: 

COMMON 

VARIABLE 

INTER 

XI 

ZT 

ETA  (K) 

INDEX 

I.WINGU 

LM  AX 

KM  A X 

KT  IP 

JM  AX 

MAIN 

INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE 

DESCR  IPTION 

Y FACT 

stretching  factor  for  initial  ETA  mesh 

DFACT 

initial  ETA  grid  YF ACT  control 

DETA 

ETA  (K)-ETA  (K-1) 

ZT  1 

internal  table  for  Z grid 

ZFACT 

= 1,  fine  grid,  = 5 initial  grid 

DNPLE 

distance  between  mapping  and  planfora  l.e. 

DM  PTE 

distance  between  mapping  and  planfora  t.e. 

XNW 

KTIP-1 

DETA 

1/  (XNW-.5) 

READ 

STATEMENTS: 

none 

WRITE 

STATEMENTS: 

none 
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SUBROUTINE  CFDGRD 


PURPOSE:  to  generate  the  crude  grid 

CALL:  from  SETUPX 

CALL  STATEMENT:  no  arguments 

SUBROUTINES  CALLED:  none 

DATA  TO  COMMON: 

EXTER  ZTX 

ETAX  (K) 

INDEXX  LWNGUX 

LMAXX 
KTIPI 
KTH1X 
RHAXX 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

LH  10 

ZHAX  10 

Z1  .12 

XLM  LM 

ZTRH  XLH-.5 

BZ  constant  in  polynomial  of  Z grid 

AZ  2*Z 1-. 2 5*BZ 

XLL  L 

XLL2  XLL-.5 

X NW  KTIPX-1 

DETA  ETAX  (K)  -ETAX(K-I) 

PEAD  STATEMENTS:  none 

WRITE  STATEMENTS:  none 


SUBROUTINE  VISCPL 


PURPOSE:  computes  the  boundary  layer  displacement  effect 

CALL:  from  MAIN 

CALL  STATEMENT: 


PROG  RAM 


MAIN 


VARIABLE  DESCRIPTION 


number  of  last  inviscid  iteration 


SUBROUTINES  CALLED: 


SUBROUTINE  DESCRIPTION 


BAVITZ 
CLCALC 
CPC  ALC 
SLOPY 

SMTH 

STRIPK 

SIMP 


cove  separation  treatment 
computes  the  lift  coefficient 
determines  the  pressure  distribution 
interpolates  between  grids, 
calculates  slopes  of  quantities 
smoothes  trailing  edge  boundary 
conditions  (if  desired) 
links  laminar  and  turbulent  boundary 
layer  programs 
Simpson's  rule  integration 


DATA  TO  COMMON: 


COMMON 


VARIABLE 


PARM 

HING 
WIN GDC 

VISCOH 


BLDL 

WCOE 

XTEWX 

WBCL 

HBCU 

CFFKL 

CFFKU 

CFVL 

CPVU 

CFZL 

CFZU 

CI.GG 

CPU 

cp  in 
CPLK1 
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DATA  TO  COMMON  (cont.) 


CPLK2 

CPOK  1 

CPUK2 

DDDSTU 

DDDSTL 

DEILK1 

DELLK2 

DELSL 

DBLSO 

DELUK  1 

DELOK2 

EPS  IX 

EPS  2X 

ETAK 

ITEX 

SBRAL 

S8RAU 

SCFB 

scrr 

VOTHET 

LOCAL2  XCBLX 

NN  X 
NNXX 

SZT  KBBL 

NX 

SEPHIN 

DDDSL 

VITERP  DXLSTL 

DXLSTU 
ETAOLD 
K70LD 
K80LD 
NXOLD 

V SCI NP  ISTOP 

I VITEF 

CPC AL  NGRIDS 

VSPCOH  KO 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

BLDLO  lower  surface  deltastar  slope 

from  previous  iteration 

BLDL  new  lower  surface  deltastar  slope 

BL DU  new  upper  surface  deltastar  slope 

3LDUO  upper  surface  deltastar  slope 

from  previous  iteration 

CFTU  upper  surface  local  skin  friction 


y :•  •-  • ■ 


CPTL 

CPVISC 

CHANGL 

CH AN  GU 

CHISNP 

DELPTE 
DELTCL 
ENL 
EH  II 

I ST ATM 

1SU  BP 

ITER 

IUNIT 

IVCONT 

KSNTHX 

K VOH XL 

KVOflXO 

K 2S  fITH 

PJTE 

REL 

SUPANG 

XSEPII 

XSEPL 


lower  surface  local  skin  friction 
total  viscous  drag 
fractional  change  in  lower 
surface  deltastar 
fractional  change  in  upper 
surface  deltastar 
x/c  at  which  effective  sweep 
angle  is  taken 

trailing  edge  potential  jump 

change  in  CL  from  previous  iteration 

local  lower  surface  Hach  no. 

local  upper  surface  Hach  no. 

span  station  at  which  boundary 

layer  is  being  calculated 

= 1,  upper  surface 

=2,  lower  surface 

iteration  number 

output  unit 

convergence  criterion  clue 

no.  of  smoothings  performed 

lower  surface  separation  point  index 

upper  surface  separation  point  index 

no.  of  smoothings  of  trailing  edge 

boundary  conditions 

trailing  edge  potential  jump 

Reynold’s  number 

local  sweep  angle 

upper  surface  separation  point 

lower  surface  separation  point 


READ  STATEMENTS:  none 


WRITE  STATEMENTS: 

I VITER  r NGRIDS,  CLG,  EPS1,  EPS?,  K,  DCPHXL(K),  CPNL  (K)  , 
CPOL(K),  JMXL(K),  AVCHGL  (K)  , ETA  (K)  , J,  XOOT{J)# 
DELSTU(J),  CHANGU,  BI.DU,  DDSTU(J),  DELSTL(J),  CHANGL, 
BLDL,  DDSTL  (J)  , WBCTT(K,J),  WBCL(K,J) 
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SUBROUTINE  VBRAD 


PURPOSE:  Bradshaw's  boundary  layer  program 

with  changes  incorporated  in  order  to 
conpute  the  boundary  layer  over  infinite  swept 
wings  using  Nash's  nodified  chord  technique 

CALL:  fron  STRIPS 

CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


SBR  A 
VODEL 

VOTHET 

CPV 


CFZ 


CP 

I 

A 

RF 

HO 

XLAMDA 


KSEP 
K VO  MX 
KVOL 


output  location  vector  for  solution 
vector  of  displacement  thickness 
at  SBR A 

vector  of  momentum  thickness 
at  SBRA 

vector  of  skin  friction  component 
in  direction  perpendicular  to 
equivalent  infinite  swept  wing 
leading  edge 

vector  of  skin  friction  component 
in  direction  parallel  to  equivalent 
infinite  swept  wing  leading  edge 
input  pressure  coefficient 
Bradshaw's  I vector  ** 

Bradshaw's  A vector  ♦♦ 

Reynold's  number  based  on  chord 
initial  shape  factor 
cosine  of  angle  between  the  yawed 
wing  coordinate  system  and  the 
surface  streamline  direction 
separation  clue;  =+1,no  separation; 
=-1 , separation 

total  number  of  stations  at  which 
boundary  layer  solution  is  computed 
value  of  subscript  at  which  last 
laminar  solution  results  are  stored 


SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

interpolation 
G function 


PINT 

GORD 


simultaneous  triple 
computes  Bradshaw's 
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ORDIN  interpolates  Cor  constant  spaced  data 

REDUCX  interpolates  to  nee  grid 

RLORD  Bradshaw's  L function 

SIBPSN  Sinpson's  rule  integration 

SLOPE  calculates  the  slope  of  a tabulated  function 

SOLVED  solution  of  two  simultaneous  linear 

algebraic  equations 
SPRINT  outputs  profile  results 

TANC AL  computes  characteristic  angles 

VNtJSUB  computes  Nash  effective  viscosity 

PN  (statement  function  subprogram) 

SLOG  (statement  function  subprogram) 

DATA  TO  CONHON: 


CONHON 

VARIABLE 

REDUC 

16  1 

TFUT 

ufut 

V 

HPUT 

EXTEND 

L ASTI 

XCNAX 

THRED 

XLA  n 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 

DESCRIPTION 

A AT 

ALPHA* A (1 ) /TAUO 

ANACN 

A (18)  ♦♦ 

ANACN 

COS  (A  (20)  ) *AHACH  ♦♦ 

AY 

A (13)*  (A  (12)-1)  ♦♦ 

AZ 

ORDIN  (P  ,A  (2)  .XXSTEP)  ♦♦ 

A 162 

2*  A (16)  ♦♦ 

A80RIG 

A (8)  ♦♦ 

C 

B/ (A  (13)*  (B-1)  *1)  ♦♦ 

CP  R 

2*TAU0/RK2/  (1*RKS) 

CFRIN 

CPR*CFPCTP 

CPV 

XNASH 

CPZ 

CPZZZ 

CPZZZ 

DA 

F3*  DF3  DU*DU 

DELTA  1 

displacement  thickness 

DELTA2 

momentum  thickness 

DF1DA 

- A ( 1)  /A  (9 ) /ROOT*F6  ♦♦ 

DF2D0 

F5*  (TOR/(-.5*G)  *P«*F7 

DIV 

divergence  of  flow  factor 
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MAIN  INTERNAL  SUBROUTINE  V ARI  ABLES  (cont.) 


I 


DLPDX 

pressure  gradient  tern 

DTW 

-F2-DF2DU*DU-A(1)  *DA  ♦♦ 

P 

WN  *TOR/ A (8)  *♦ 

F2 

TAU0  + ALPHA*A(1) *P4*P5  ♦ ♦ 

F 5 

1/(1-UFUT(1)**2/E) 

F7 

2*U FUT  ( 1)  / (E-0F0T(  1)  **2) 

HI 

DELTA 1/DELTA2 

I 

Bradshaw's  I vector •* 

IENT 

INT  (.25*A(6)  / A{  1)  > 

INNER 

inner  loop  check  counter-  Newton  iteration 

IOUTBP 

outer  loop  check  counter-Newton  iteration 

IQ 

separation  klue 

ITDFL 

-Q,  2- D flow,  * 1 , 3-D  flow 

I HR  IT 

1(15) 

15 

I (5) 

16 

1(6) 

162  5 

I(6)/4 

17 

1(7) 

18 

1(8) 

19 

1(9) 

111 

1(11) 

K VO 

output  station  nunber 

K VONX 

KVO,  at  end  of  turbulent  calculation 

KVOL 

initial  solution  station  where  results  have 
been  obtained,  from  laainar  flow 

K VXK 

KVOM 

L 

J 

LEDGE 

L 

LIMIT 

1(4) 

L XXX 

I (6) 

P 

static  pressure 

PK 

K 

POPINF 

TOTINF**  (A  (12)/  (A  (12)- 1)) 

RETHT 

A ( 4) 

RICH 

Richardson  streamline  curvature  tern 

RI5 

FLOAT  (15) 

R 1 6 

FLOAT  (16) 

RKJ 

AY*XHNSC/2 

RL 

FLOAT  (L) 

RNA2 

RK2/(1-.5*  (A  (12)  - 1)  *RK2) 

RO 

RO 

HOOT 

SORT  (TAUO) 

ROOTT 

SQRT  (TAUO) 

SBRA 

X 

SWPANG 

Sweep  angle  of  wing 

TAN  A 

TANAFU  (J) 

T AN  B 

TANBFU  ( J) 

TEST  1 

DU/UFUT  (1) 

TEST2 

DTW/TAUO 

I 
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ntlN  INTERNAL  SUBROUTINE  VARIABLES  (Cont.) 


TEST  3 

DA/ALPHA 

TEST  4 

1-TFUTP/TORO 

TOT  IN  F 

n (A  (12)-1)/2*AHACN**2 

UEDdEI 

UFUT  (L) 

13  EDdE  2 

UFUT (L*  1) 

VODEL 

DELTA  1 

VOTHET 

DELTA  2 

XFJT 

X ♦ X STEP 

X«  E 

SORT  (2* RK 5/ AT) 

XN  ASM 

CFP  IN/COS  (A  (20)  ) **2 

X PD  X 2 

X ♦ . 5*  XSTFP 

XSTEP 

x direction  step  size 

XX  STEP 

X ♦ XSTEP 

2 J 

FLOAT  (J) 

ZK 

FLO  AT (K ) 

••Bradshaw's  l Victor 
I (1) -identify ing  cds»>  number 

I(2)-numbor  Jt  steps  between  output  profiles 
I (3) -maxi  mum  uuihtT  of  solution  steps 
I (4)  - max  iaum  number  cf  calculation  points 
ou  profile 

I (5) -num ber  of  evenly  spaced  input  CP's 
and  Ian  das 

I (6) -number  of  points  or  profile  (input 
value  is  the  initial  number) 

I (7) -curved  surface  clue,-=1,  curved  surface, 

= 0,  fiat  surface 

1(B) -limit  for  iteration  between  law  of 
wall  and  outer  solution 
1(B)-  *0,  unless  3-P  relief  effects  are 
i n pu  t 

I (IP) -type  of  pressure  input;  =2  for  CP 
input 

I(11)-clue  for  initial  profile;  *1# 
internally  generated 
I (12) -transit  ion  clue  used  in  laminar 
calculat ion 

I (13)-3-n  flow  simulation  clue;  *1,  i-D  flow; 

=0,  2-D  flow 

I ( 1 4) -pro 1 1 le  output  clue 
I(15)-output  unit  clue,  print  output  is 
on  UNIT  1(15) 

♦♦Bradshaw's  A Vector 

A(1)-initial  momentum  thickness  (generated  in  BLLAN) 
A (2) -spacing  of  input  pressures  and  lamdas 


■ 
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A (3) -initial  station  for  turbulent  boundary 
layer  calculation  (generated  in  BLLAN) 

A(4) -initial  local  aoaentua  thickness  Reynolds 
number  (generated  in  BILAN) 

A(5)-initial  H (generated  in  BLLAN) 

A (6) -initial  deltastar/c;  not  required  if  initial 
profiles  are  generated  internally 
A (7) -printed  profile  results  if  CF<A  (7) 

A(8)-the  value  of  Al  in  the  Bradshaw  theory 
A(9)-K  in  the  log  law 
A (10)  -A  in  the  log  law 
A ( 1 1)  -C  FL  stability  criterion  factor 
A (12)  -ratio  of  specific  heats 
A ( 1 3) -recovery  factor 

A (14)  -exponent  in  the  power  law  viscosity- 
toaperature  relation 

I A ( IS ) - 1 factor  in  the  D tera  required  in  the 

coapressible  flow  case 
A (16) -the  error  criterion  in  the  wall 
iteration  calculation 
A (17)  -CF  below  which  the  1(4)  liait  does 
not  operate 

A(18)-Nach  number  of  the  freestreaa 
A ( 14) -specif ied  transition  point;  (XTR/C) 

A (20) -eguiv  alunt  sweep  angle  in  radians 
READ  STATEN  ENTS:  none 

WRITE  STATENENTS: 

K,X,  XN  ASH,  DELTA  1 , DE  IT  A2 , H 1 , CPZ7. Z,  XNE 
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I 


SUBROUTIN I BLLAB 


PTIRPOSB:  laminar  boundary  layer  calculation  by 

the  aethod  of  Pott  and  Crabtree,  which  is 
basically  the  aethod  of  Thwaites  extended 
to  coapressible  flow 

CALL:  froa  STRIPK 


CALL  STATEMENT: 


SOBROUTINE 

ARGUMENT  DESCRIPTION 

STRIPK 

SBRA 

vector  of  X positions  at 
which  the  solution  is  stored 

• 

ti 

YODEL 

vector  of  displacenent  thickness 
at  SBRA 

VOTHET 

vector  of  aonentun  thickness  at 

SERA 

CFV 

vector  of  skin  friction  coaponent 

CEZ 

in  X-direction  at  SBRA 

vector  of  skin  friction  coaponent 

in  Z-direction  at  SBRA 

CP 

input  pressure  coefficient 

< t 

XL  AM  DA 

cosine  of  streaaline  angle 

IVI 

Bradshaw's  I vector 

VA 

Bradshaw's  A vector 

RE 

Reynold's  nunber  based  on  chord 

HO 

displacement  thickness  /aoaentua 

thickness  at  the  last  laninar 
flow  station 

KSEP 

separation  clue;  =*1,no  separation; 
= - 1,separation 

K VOL 

total  nuaber  of  stations  at  which 
boundary  layer  solution  is  conputed 

NflAX 

nuaber  of  chordwise  stations  at 
which  laainar  solution  is  conputed 

SUBROUTINES  CALLED; 

SUBROUTINE 

DESCRI PTION 

ORDIN 

linear 

interpolation 

SPLN1 

interpolate  the  Thwaites  functions 

SPLN  IX 

interpolate  the  Thwaites  functions 

TINT 

(statenent  function  subprograa) 

L386 


OAT*  TO  CONNON 


CONNON  VARIABLE 

EXTEND  LASTI 

XCNAX 

HAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 

DESCRIPTION 

AA 

1/  120-HINC/945 

AAA 

. 45  *TR  ATO/R  E 

AC  PX 

(CPXNAX-CP  (1) ) /XNAX 

AN  ACH 

freest  rear  Nach  number 

AN  ACN 

AN  ACH*COS  (VA  (20)  ) 

A 12 

VA (12) 

crv 

skin  friction 

crz 

estimated  spanvise  skin  fric 

CFZFTR 

148/325*TAN  (VA(20)  ) *TRATX/RE 

CHI 

transition  factor  for  crossf 

CHORD 

VA  (2)  * (IV I (5) - 1 ) 

CP 

pressure  coefficient 

CPX 

ACP X* XCPX  »CP  (1) 

C PX  N AX 

Cp  at  aaziaua  gradient 

DELTA  1 

H*DELTA2 

DELTA2 

aoaentua  thickness 

DINC 

incompressible  boundary  la  ye 

DS 

step  size 

DSNAX 

NNAX 

DSTST 

VA  ( 19) - S 

DSUUE 

DS 

DTH 

boundary  layer  thickness 

D 1 1NC 

HI NC*D2INC 

D2INC 

DELTA  2*TPAT  **POHX 

H 

TRAT*  (HINC ♦ 1) - 1 

FNACH 

AN  ACH*UBAR I/QQQ 

HINC 

incompressible  shape  factor 

HO 

H 

IHR  IT 

IVI  (15) 

112 

IABS  (IVI  (12)  ) 

15 

IVI  (5) 

K VOL 

N 

PE  PI NF 

( !♦  .5*A12*CP  (J)  *ANACH**2) 

PEPO 

PEPINF/POPIN 

POL  F AC 

Polhausen  polynoaial  factor 

PO* 

(A  12-2)  / (A  1 2-  1) 

POWX 

.5*  ( A 1 2 ♦ 1 ) / (1-A12) 

t hick  ness 
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(IAIN  INTERNAL  SUBROUTINE  V ARI  ABLE  S (cont.  ) 


POPIN 

RD2 

RE 

S 

TERN 

TETIN 

THETA 

TL 

TN 

TMS  RD 

TNO 

TRAT 

TRATO 

TR  ATX 

TWH 

UB  ARI 

UESJ 

VAL 

VODEL 

VOTHET 

wv  s 

XCP 

XCPX 

XLLE 

XLLL 

XNNSQ 

XOF1EGA 


TER  n**  (A  12/  (A  12-1) 

Reynolds  nuaber  based  on  aoientui  thickness 

RE  *COS  (V  A ( 2 0)  ) 

chord  position 

U (A  12-  1)/2*AHACN**2 

temperature,  edge  to  freestrean 

(C  P ( 1 ) -C  P (J ) ) / ( (J- 1 ) * VA  (2)) 

Thvaites  tabulated  function 
Thvaites  tabulated  function 
OR DIN (UBARP, DSDUE,S »DS) 

TH 

stagnation  temperature  ratio 

( 1 ♦ V AL*  AH  AC  H*  * 2 ) * * PCB 

1+VAL*AMACH**2 

Thvaites  tabulated  function 

incompressible  velocity  ratio 

XHNSQ/AMACN**2*TETIN 

. 5*  (A  1 2-1 ) 

DELTA  1 
DELTA2 
ACOS  (XLLE) 

location  of  pressure  input 
(J-  1 ) * V A (2) 

OPDIN (XL AM  DA, VA  (2)  ,S+DS) 

XLAtIDA 

Mach  number  squared 
AT  AN  (TAN  (V  A (20)  )/0RR  (J)  ) 


READ  STATEMENTS:  none 


WRITE  STATEMENTS: 


S,TN  , DELTA  1 , DE LTA 2 , DTH , RD2, CF V , H , CFZ,CH I, U3 ARI, FMAC H 
V A ( 1 ) , V A (4  ) , V A (5)  , H 
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SUBROUTINE  STRIPE 


PURPOSE:  coa  bines  the  laminae  and  turbulent 

modified  chordwise  boundary  layer 
prog ra  ms 

CALL:  from  VISCPL 

CALL  STATEMENT: 


SUBROUTINE  ARGUMENT 

DESCRIPTION 

VISCPL  CP 

input  pressure  coefficient 

RX 

Reynolds  number  - streamvise 
velocity,  but  yawed  wing  chord 

SBP  A 

output  vector  containing  the 
location  of  the  solution 

VODEL 

displacement  thickness 

VOTHET 

momentum  thickness 

CFV 

vector  of  skin  friction  component 
in  X-direction  at  SBRA 

CFZ 

vector  of  skin  fricticn  component 
in  Z- direct  ion  at  SBRA 

KVOMX 

number  of  arguments  in  solution 
vector 

KSEP 

separation  clue;  =+1,  no  separation, 
=- 1 ,separat ion 

K VOL 

total  number  of  stations  at  which 
boundary  layer  solution  is  computed 

NM  AX 

number  of  chordwise  stations  at 
which  laminar  solution  is  computed 

ISTATN 

calculation  station  {minus  indicates 
lower  surface) 

ITRANS 

transition  klue,  -4  for  specified 
transition 

IOUTP 

=0,  no  b. 1.  output,  = 1 , distributions, 
-2,  profiles  also 

ISTEPO 

steps  between  profile  output 

MACHNO 

freestream  Mach  number 

XTRNS 

location  of  specified  transition 
location 

SHPANG 

sweep  angle 

IUNIT 

unit  on  which  results  are  written 

SUBROUTINES  CALLED: 
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SUBROUTINE  DESCRIPTION 

BLLAN  foe  laminae  calculation 

VBRAD  foe  tuebulent  calculation 

DATA  TO  CONNON:  none 

READ  STATENENTS:  none 
WRITE  STATEN  ENTS: 

II,  J,  I(J),  J1,  I(J1),  J 2,  I ( J2)  , A (J)  , A (Jl)  , 
RE,  SWPANX 


I 
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SUBROUTINE  FINT 


PURPOSE:  simultaneous  triple  interpolation 

CALL:  fron  V BRAD 

SUBROUTINES  CALLED;  none 
DATA  TO  COMMON:  none 


M AIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 

DESCRIPTION 

A 

C1*U(J)  +C2*U  (J»  1)  »C  3*U  (J-1) 

B 

C 1 *T  (J)  ♦C2*T(J*1)  ♦C3*T(J-  1) 

C 

C1*W  (J)  ♦C2*W  (J*1)+C3*W(J-1) 

Cl 

1— R** 2 

C 2 

.5*  (R**2  + R) 

C3 

. 5*  (R**2-R) 

READ  STATEMENTS: 

none 

WRITE  STATEMENTS: 

none 

i 
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SUBROUTINE  GORD 


PURPOSE:  compute  Bradshaw's  G function 

CALL:  from  VBRAD,  TANCAL 

CALL  STATEMENT: 

SUBROUTINE  ARGUMENT 

VBRAD  RR 

TANCAL  AAJ 

SUBROUTINES  CALLED:  none 

DATA  TO  COMMON:  none 

READ  STATEMENTS:  none 

• RITE  STATEMENTS:  none 


FUNCTION  PRINT 


PURPOSE:  function  subprogram  to  interpolate  PHI  froa  the 

coarse  grid  to  the  fine  grid 

CALL:  froa  FARBDT 

CALL  STATEMENT: 


ARGUMENT 

DESCRIPTION 

J1 

coarse  grid  J index 
grid  point 

upstream  of  fine 

J2 

coarse  grid  J index 
fine  grid  point 

downstream  of 

K 1 

coarse  grid  K index 
grid  point 

inboard  of  fine 

K2 

coarse  grid  K index 
grid  point 

outboard  of  fine 

LI 

coarse  grid  L index 
grid  point 

below  the  fine 

L2 

coarse  grid  L index 
grid  point 

above  the  fine 

DX 

X-fraction  from  coarse  grid  point 
to  fine  grid  point 

DY 

Y-f  raction 

DZ 

Z-fraction 

SUBROUTINES  CALLED:  none 
DATA  TO  COMMON:  none 
MAIN  INTERNAL  SUBROUTINE  VARIABLES: 
VARIABLE  DESCRIPTION 

PRINT  interpolated  value  of  PC 

READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 


l1 


J 
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FUNCTION  GRAD 


PURPOSE 2 slope  of  a function  at  its  tabulated 
pts. 

CALL:  fcoa  SLOPE 
CALL  STATEMENT: 

ARGUHBNT  DESCRIPTION 

FR  tabulated  function 

H distance  between  points  of  FN 

IA  lower  Unit  of  table 

IB  upper  Unit  of  table 

N location  at  which  slope  is  desired 

SUBROUTINES  CALLED:  none 

DATA  TO  CONHON:  none 

READ  STATEHENTS:  none 

WRITE  STATEHENTS:  none 


i 


FUNCTION  ORDIR 


PURPOSE:  linear  interpolation  for  constant  spaced 

data 

CALL : froa  VBRAD,  BLLAM 


CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


tabulated  fundtion 

step  size  of  tabulated  data 

location  of  desired  function  value 


SUBROUTINES  CALLED: 


SUBROUTINE  DESCRIPTION 


AINT 
I NT 


(inline  function) 
(inline  function) 


DATA  TO  COMMON:  none 


READ  STATEMENTS:  none 


WRITE  STATEMENTS:  none 


FUNCTION  BLOND 


PURPOSE:  Bradshaw's  L function 

CALL:  fron  V BRAD 

CALL  STATEMENT: 

SUBROUTINE  ARGUBBNT 

VBRAD  RR 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

EIP  (in  library) 

SQRT  (in  library) 

DATA  TO  COMMON:  none 

READ  STATEMENTS:  none 

WRITE  STATEMENTS:  none 


! 


I 


I 

II 


FUNCTION  SIHPSN 

PURPOSE:  Sinpson's  rule  integration 

CALL:  Cron  fBRAD 

CALL  STATEMENT: 

ARGUMENT  DESCRIPTION 

PR  function  to  be  integrated 

IA  lower  Unit  of  integration 

N upper  Unit  of  integration 

H spacing  between  PR  s 

SUBROUTINES  CALLED:  none 

DATA  TO  COMMON:  none 

READ  STATEMENTS:  none 

WRITE  STATEMENTS:  none 


I 


FUNCTION  SLOPE 


1 


j 


I 


PURPOSE:  to  calculate  the  slope  of  a tabulated 

function  at  an  arbitrary  pt. 

CALL:  froa  VBRAD 

CALL  STATEN  ENT: 

ARGUMENT  DESCRIPTION 

A the  tabulated  function 

G the  spacing  of  A 

N the  nuaber  of  A*s 

X the  location  at  which  the  slope  is 

desired 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 


GRAD 
AINT 
I NT 


slope  of  a function  at  its  tabulated  pts. 
(inline  function) 

(inline  function) 


DATA  TO  COMMON:  none 


READ  STATEMENTS:  none 


WRITE  STATEMENTS:  none 


398 


SUBROUTINE  SOLVEB 


PURPOSE:  solution  of  two  simultaneous  linear 

algebraic  equations 

CALL:  froa  TBRAD 


CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


1st  solution  value 
2nd  solution  value 
deter aina te 

natrix  contining  all  coefficients 


SUBROUTINES  CALLED:  none 


DATA  TO  COMMON:  none 


PEAD  STATEMENTS:  none 


WRITE  STATEMENTS:  none 


SUBROUTINE  SPRINT 


PURPOSE:  output  of  profile  results 

CALL:  froa  V BRAD 


READ  STATEMENTS:  none 


WRITE  STATEMENTS: 


X,  A(1),  CRP,  FK,  DELTA 2,  THETA,  HI,  DELTA1, 
DLPDX,  YDLPX , J,  UK  (J)  , RH2(J),  TAUK2  (J)  , VK  (J)  , 
TANA(J),  TANB  (J) 


r 


i 
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SUBROUTINE  TANCAL 

PURPOSE:  computes  the  characteristic  angles  for 
use  in  the  solution 

see  Ego.  21  of  Bradsahaw  and  Perris  for  details 
CALL:  froi  VERAD 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

GORD  computes  Bradshaw's  G function 

DATA  TO  COMMON:  none 
READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 


U01 


! 


SUBROUTINE  VNOSUB 


PURPOSE:  coaputes  the  Nash  effective  viscosity 
CALL:  froa  VBRAD 

CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


RETU ET 

XLABDA 

VNUEFR 

XBESQ 

SUBROUTINES  CALLED: 


Reynolds  nuaber  based  on  aoaentua 
thickness 

angle  between  streamline  and  yawed 
wing  X 

effective  viscosity  ratio 
square  of  the  Bach  nuaber 


SUBROUTINE  DESCRIPTION 

ALOGIO  (in  library) 

SQRT  (in  library) 

DATA  TO  COBBON:  none 

R f AD  STATEMENTS:  none 

SRITE  STATEMENTS:  none 


I 


SUBROUTINE  REDUCX 


PURPOSE:  to  interpolate  to  new  grid 

CALL:  Cron  VORAD 

CALL  STATEMENT: 

ARGUMENT  DESCRIPTION 

IN  =1,  grid  spread  out,  *2,  grid 

con  tracts 

A Bradshaw  A vector 

I Bradshaw  I vector 

SUBROUTIN  FS  CALLED: 

SUBROUTINE  DESCRIPTION 

A LOG  (in  library) 

FLOAT  (inline  function) 

INT  (inline  function) 

DATA  TO  COMMON: 

COMMON  VARIABLE 

REDUC  161 

TANAFU 

TANBFU 

TFUT 

UFUT 

V 

WPUT 

READ  STATEMENTS:  none 

WRITE  STATEMENTS:  none 


SUBROUTINE  VTRANS 


PURPOSE:  interpolates  the  boundary  layer  displacement 

thickness  and  CP's  fron  the  old  solution 
grid  to  the  new  grid 

CALL:  fron  ic 

CALL  STATEMENT: 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

SLOPY  interpolates  deltastars  and 

CP's  fron  old  chordwise  grid 
(N XO  (K) ) to  new  chordwise 
grid  (NX(K)) 

SMTH  snooths  interpolated  delta- 

stars  (if  desired) 

FLIN  FLIN  (R,T,ETA,YR  ,YT)  * 

(ETA-YF)/  (YT-YR)  * 

(T-R) *R 

interpolates  ftoa  old  span- 
wise  grid  to  new  spanwise 
grid 

DATA  TO  COMMON: 

COMMON  VARIABLE 

WIN  GBC  WBCL 

WBCU 

VTRAN2  DEL  DN 

DELUP 
XO  UT 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

NXOLD  no.  of  chordwise  points  fron 

previous  solution  at  inboard 
span  station  of  pair  used  for 
spanwise  interpolation 

NXOLD1  no.  of  chordwise  points  fron 

previous  solution  at  outboard 


NX 

XO'JTOD 

DDDSUI 

DDDSLI 

DU 

DL 

DDDSUO 

DDDSLO 

DU1 


DL  1 

DSL’J 

DSLL 


CPUf 

C PL  I 

CPUO 

CPLO 

CPUIX 

C PLIX 

CPUOX 


span  station  of  pair  used  for 

spanwise  interpolation 

no.  of  chordwise  points  in  new  grid 

values  of  XOOT  from  old  solution 

upper  surface  deltastar  slope 

from  previous  solution  at 

inboard  span  station 

lower  surface  deltastar  slope 

from  previous  solution  at 

inboard  span  station 

upper  surface  deltastar  slope 

interpolated  to  new  chord- 

wise  grid 

lower  surface  deltastar  slope 
interpolated  to  new  chord- 
wise  grid 

upper  surface  deltastar  slope 
from  previous  solution  at 
outboard  span  station 
lower  surface  deltastar  slope 
from  previous  solution  at 
outboard  span  station 
upper  surface  deltastar  slope 
interpolated  to  new  chordwise 
gr  id 

lower  surface  deltastar  slope 
interpolated  to  new  chordwise 
grid 

upper  surface  deltastar  slope 
interpolated  to  new  spanwise 
grid 

lower  surface  deltastar  slope 
interpolated  to  new  spanwise 
grid 

upper  surface  CP  from  previous 
solution  at  inboard  span  sta. 
lower  surface  CP  from  previous 
solution  at  inboard  span  sta. 
upper  surface  CP  from  previous 
solution  at  outboard  span  sta. 
lower  surface  CP  from  previous 
solution  at  outboard  span  sta. 
upper  surface  CP's  interpolated 
to  new  chordwise  grid 
lower  surface  CP's  interpolated 
to  new  chordwise  grid 
upper  surface  CP's  interpolated 
to  new  grid 

lower  surface  CP's  interpolated 


It  os 


CPLOX 


SUBROUTINE  CPCALC 

PI R POSE:  computes  the  pressure  distribution 
CALL:  froa  VISCFL 


1 


CALL  STATEMENT:  no  arguments 
SUBROUTINES  CALLED:  none 

DATA  TO  COMMON: 

COMMON  VARIABLE 

CPCALC  AVCHGL 

AVCHGU 
CMAXDB 
CHAXDT 
CPBBAR 
C PL 
CPNL 
CPNU 
CPOL 
CPOU 
CPTBAR 
CPU 
DCPHXL 
DCPHXU 
ENSQ 
EPS  1 
EPS2 
J MX  L 
JM  XU 
MACHDN 
MACHUP 
NG  RIDS 
SRKPB 
SHKPU 
SON  PL 
SON  PU 


MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE  DESCRIPTION 

CPLKJ  new  lower  surface  CP 
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MAIN  INTERNAL  SUBROUTINE  V ARI ABLES (cont.) 


CPODL 

lower  surface  CP  fron 
previous  iteration 

CPODU 

upper  surface  CP  fro* 
previous  iteration 

CPUEJ 

new  upper  surface  CP 

E ML 

new  local  lower  surface 

Mach  nunber 

EMU 

new  local  upper  surface 

Mach  nunber 

EMLP 

local  lower  surface  Mach 
nunber  fron  previous 
iteration 

EMUP 

local  upper  surface  Mach 
nunber  fron  previous 
iterat ion 

PEROXL 

difference  in  lower  surface 
fron  previous  iteration  to 
current  iteration 

CP 

PERDXU 

difference  in  upper  surface 
fron  previous  iteration  to 
current  iteration 

CP 

XMPTS 

no.  of  points  on  each  surface 

READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 
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SUBROUTINE  CLCALC 


PURPOSE:  to  compute  the  wing  lift  coefficient 


CALL:  from  VISCFL 


CALL  STATEMENT: 


SUBROUTINE  ARGUMENT  DESCRIPTION 


VISCFL 


SUBROUTINES  CALLED: 


lift  coefficient 


SUBROUTINE  DESCRIPTION 


SIMP 


Simpson's  rule  integration  of 
trailing  edge  potential  jump 
to  yield  total  wing  load 


DATA  TO  COMMON:  none 


MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 


X LOAD 


PJTE 


DESCRIPTION 

lift  from  integration  of 
trailing  edge  potential 
jump 

total  wing  load  from 
integration  of  trailing 
edge  potential  jump 
trailing  edge  potential  jump 


READ  STATEMENTS:  none 


WRITE  STATEMENTS:  none 


r 


SUBROUTINE  BAVITZ 


PURPOSE:  treatment  of  lower  surface  separation  zone 

using  methods  of  Paul  C.  Bavitz, 

NASA  TN  D-7718 

This  routine  is  used  only  if 
the  foil  being  analyzed  is  super- 
critical. 

CALL:  froa  VISCPL 

CALL  STATEMENT:  no  arguments 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

VINTER  general  Lagrangian  interpolation 

DATA  TO  COMMON: 

COMMON  VARIABLE 

WINGBC  HBCL 

BAVCON  CPL  2 

DXLSTL 

DST2 

TSEP 

YS*T 

SZT  DDDSL 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

XSEP  x/c's  chosen  for  Bavitz 

treatment 

YSEP  del tastars  at  XSEP 

ST2  modified  displacement 

thickness 

DST2  modified  deltastar  slope 

W BCL  modified  lower  surface 

boundary  condition 

READ  STATEMENTS:  none 


d 


i 

. 


WRITE  STATER  ENTS : 


J,  XOOT(J),  DST  2 (J  (,  ST2  ( J)  , DDSL  (K#J)  , WBCL(K,J), 
WBCLOR  (K, J) 


i 


SUBROUTINE  VINTER 


5 


PURPOSE:  general  Lagcangian  interpolation 

CALL:  from  BAVITZ, DATTRN,BLOUT 

CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


FN 

X 

KO 

KM  AX 
VF 

S 

10 

INAX 

LF 


IDER 


output  vector  of  function  or  slope 
location  of  FN 

1st  index  value  used  in  FN  array 
last  index  value  used  in  FN  array 
input  function  value 
location  of  input  function  value 
1st  index  value  of  VF  used  for 
interpolation 

last  index  value  of  VF  used  for 

interpolation 

order  of  interpolation 

* 2-linear 

-4- cubic 

etc. 

= 0 function  value  returned 
>0  slope  of  function  returned 


SUBROUTINES  CALLED:  none 


DATA  TO  COMMON:  none 
READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 


- 
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SUBROUTINE  SLOPQ 


PURPOSE:  interpolation 

NOTE-  This  routine  exists  in  CDC  version  only  and 

is  used  to  overcome  LBVHL  difficulties 
its  operation  is  identical  to  SLOPY 

CALL:  from  GEOMBR,  GEOBR X,  BLLAM 

CALL  STATEMENT:  see  SLOPY  description  for  details 

I 

! 


SUBROUTINE  BLOUT 


PURPOSE:  creates  data  set  for  input  to  the 

Nash-Scruggs  3-D  boundary  layer 
progra  m 

CALL:  from  OUT P 

CALL  STATEMENT:  no  argunents 

SUBROUTINES  CALLED: 


SUBROUTINE  DESCRIPTION 


VINTER 


DATA  TO  COMMON: 


COMMON 


NSBL 


WING 


interpolation  to  constant  x/c  spacing 


VARIABLE 

ZOCL 

zocu 

CP  L 

CPU 

XOUTA 

SWEEP 


MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 

AM  ACN 

TERM 

POPIN 

CPSP 

THETA 

ZLE 


X LEW  P 


KSM  ALL 


NPTSMN 


DESCRIPTION 

MACHNO*COS  (SWEEP) 

!♦  (GAMMA- 1)/2*AMACN**2 
TERM**  (GAMMA/  (GAMMA-1)  ) 

(POPIN-  1)/  (GAHM A/2*MACHNO**2) 

(CPSP-CPO  (K,  J)  )/X 

local  leading  edge  Z-coordinate  from 
subroutine  WINGCO  through  common  NSBL 
stream  wise  location  of  local  leading  edge 
from  subroutine  SETUP  to  common  WING 
local  leading  edge  sweep  from 
subroutine  SETUP  through  common  WING 
span  location  index  for  smallest 
number  of  chordwise  pts. 
minimum  number  of  chordwise  pts. 
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MAIN  INTERNAL  SUBROUTINE  V ARI  A BL  ES  (con  t.  ) 


AN  ACN 


CPSP 


TH  ETA 


THTNXU 


CPN  A X 


THTNXL 


XN  AXU 


XNAXL 


CORDH 
X ST  A 
NPTS 
I BO  UT 

NZ 

NCASE 

NBCO 

NACHNO 

SCALE 

PRES 

TE1P 

LTRN 

NWRITE 

NR  EAO 

CON  V 


Nach  nuiber  normal  to  local 
leading  edge 

stagnation  pressure  based  on  local 
sweep 

pressure  coefficient  gradient  or 

local  wing  twist  in  degrees 

■axiiui  upper  surface  pressure 

coefficient  gradient 

maximum  pressure  coefficient 

based  on  gradient  limit 

maximum  lower  surface  pressure 

coefficient  gradient 

maxinum  streamwise  chord  fraction 

for  upper  surface  pressure  coefficient 

gradient  limit 

spanwise  location  from  subroutine 

SETUP  through  common  INTER 

maximum  streamwise  chord  fraction 

for  lower  surface  pressure  coefficient 

gradient  limit 

local  chord  length 

number  of  spanwise  stations 

number  of  streamwise  pts.  along  chord 

device  number  for  boundary  layer  data 

output 

number  of  mesh  pts  normal  to  chord 
number  of  cases  in  input  data 
boundary  condition  option  index 
Mach  number 
length  scale 

free  stream  reference  pressure 
free  stream  reference  temperature 
transition  location 
wri te- to-f ile  index 
read-f r om-f ile  index 
convergence  tolerence 


FEAD  STATEMENTS:  none 


WRITE  STATEMENTS: 


UNIT  I BO  UT  - TITLE,  NPTS,  NZ,  KSTA,  IT,  NBCO, 
IOITER,  IOPRF,  XLEW(K),  ZLE  (K)  , ETA  (K)  , CORDW(K), 
THETA,  XOCLE,  XODTA,  ZOCLE,  ZOCU,  NACHNO, 

ANGLES,  SCALE,  PRES,  TEMP,  IA19,  NWRITE,  NRF.AP, 

I PUNCH,  KSNTH,  CONV,  CRT  LA  N , CPTTBL,  CPSP(K), 

CPU,  CPL 
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SUBROUTINE  DATTFN 


PURPOSE:  to  transfer  fron  a set  cf  points 

to  another  and  get  the  slope  at  the 
new  point 

if  input  variable  is  outside  range  of  input 
independent  variable,  routine  returns  zero 
slope  and  the  value  of  the  function  at  the 
apprpriate  end  point 

CALL: 

CALL  STATEMENT: 


ARGUMENT  DESCRITION 
NIN  number  of  input  points 

XIN  input  point  locations 

YIN  function  value  at  the  input  points 

NOUT  number  of  output  points 

XOUT  location  of  output  points 

YOUT  function  values  at  the  output 

p oi  n t s 

Y POUT  slope  of  the  function  at  the  output 

points 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

VINTER  general  Langrangian  interpolation 

DATA  TO  COMMON:  none 
READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 
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SUBROUTINE  EI.IPSE 


PURPOSE:  to  fit  an  up  pet  and  lower  ellipse 

through  the  input  oro3s~s«ction  definition 
and  detornine  the  intersection  point  on 
the  ellipse  and  the  direction  cosines  tor  a 
<jiveti  point  on  the  boundary  condidtion  support 
sul  face 

CALL:  from  dUIK 

CALL  STATEMENT: 

ARGtJNEN  r 
J 

YPR 1CK 
7.  PR  I CK 
Y EL  I PS 

7 EL  IPS 

FNX 

FN  Y 
FN7. 

SUBPOUTINES  CALLED:  none 
DATA  TO  COMMON:  none 
MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

V AR  I ABI.  E 

ZC 

FNX 

FN  Y 
FN7. 

YELIPS 
Z EI.  IPS 
Z SWT 


ZTEST 


DESCR IPTI ON 

center  of  body 
X-diroction  cosine 

later  redefined  to  he  the  steanwise  slope 

Y- direction  cosine 

7-direction  cosine 

Y-coord  ina  to  of  intersection 

7-coordinate  of  intersection 

LINE*YPB*7.C 

us«'d  to  test  whether  on  upper  or  lower 
e 1 1 ipse  at  this  point 
ALI NE*YRB+ZC 


DESCR  IPTION 

downstream  computation  plane 
input  point  on  BCSS 
7 input  point  on  the  BCSS 
y ordinate  ot  the  point  on  the 
ell  ipse 

7 ordinate  of  the  point  on  the 
e 1 1 i p so 

stroa  aviso  slope  ol  the  ellipse  at 
this  point  ( Y EL  IPS , ZEL IPS) 
y direction  cosine  at  ellipse  point 
2 direction  cosine  at  ellipse  point. 


hi  7 


AQIMD 


BQUAD 

COU  A D 
DETERM 
ZEL  1 
Z^P 
FNORM 


1 *A A2*A A 1 

in  the  quadratic  equation  for 
the  intersection 
-2*  (ZNHBI  <J)-AA1*AA2*ZC) 

"b”  in  the  quadratic  equation 
"c"  in  the  quadratic  equation 
SQRT(BQUAD**2-4*AQUAD*C0UAn) 
(-BQUAD  ♦DETERM)/ 2/ AQUAD 
ZtICLtP  (J) 

SQRT  (FX**2»FT**2»FZ*«>2) 


READ  STATEMENTS:  none 


WRITE  STATEMENTS: 


none 


SUBROUTINE  QUIK 


PURPOSE:  generates  slopes  from  simple  body 

input 

CALL:  from  GEOMBR 

CALL  STATEMENT:  no  arguments 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 


DATTRN 


EL  IPS 


for  transfer  from  one  set  of  points 
to  another 

to  obtain  point  and  slope  from  the 
elliptical  crossect ion  at  the  j plane 


DATA  TO  COMMON: 


COMMON 


VARIABLE 


BOD  VI 


BODV  3 


B0DV4 


BODY  BC 


NR  F U 
NR  BL 
X RBU 
XRBL 
Y 

R ECU 
RBCL 
FY 

ZLCLI 

ZMUBI 

YH  HBI 

ZLCLIT 

Z MH  BI P 

YNHBIP 

IBLD 

I BUD 

NRBS 

IBS  IDE 

XRBS 

ETABU 

ETABL 

ZBOD 


MAIN  INTERNAL  SUBROUTINE  VARIABLES: 
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H A IN  INTERNAL  SOBROUTINE  V ARI  ABL  ES  (con  t.  ) 


\RI  ABLE 

DESCRIPTION 

SBRICK 

TFB* (ZR  Ed-  ZRBL) 

BB 

ZHHBI  (J)-ZLCLI  (J) 

SAREL 

. 25*PI* A* (B+BB) 

SALPH 

SAREL/SBRICK 

DCBO 

acc  length  ratio  on 

top 

DCBL 

arc  length  ratio  on 

botton 

KBSH1 

KBS-  1 

DCBS 

arc  length  ratio  on 

side 

ZHID 

(ZDCLI  (J)  ♦ZLCLI  (J) ) 

/2 

READ  STATEHENTS: 

none 

WRITE  STATEHENTS: 

J,  XIN  (J)  , SAREL,  SALPH(J) 


420 


i. 


SUBROUTIN F QUIKX 


(■Mi  * 


! 


I 


! 


PURPOSE:  this  routine  is  identical  to  QUIK, 

except  that  the  information  is  provided 
on  the  coarse  grid 


CALL:  from  geobrx 

CALL  STATEMENT:  no  arguments 

DATA  TO  COMMON: 


COMMON 

VARIABLE 

BODV1 

NRBU 

NRBL 

X R BO 

X RBL 

Y 

BODV3 

R BCD 

RBCL 

FY 

BODV4 

ZLCLI 

ZOCLI 

ZLCLIP 

ZOCLIP 

7.MHBI 

ZHHBIP 

YMHBI 

YHHBIP 

BODYBC 

IB  LD 

IBUD 

NR  BS 

IBSIDE 

XR  BS 

ETABO 

ETA  BL 

ZBOD 

RAIN  INTERNAL  VARIABLES:  same  as  QOIK 
READ  STATEMENTS:  none 
WRITE  STATEMENTS: 

J , X I NX, SAR EL  # S ALP  HX 
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SUBROUTINE  NUHHAN 


PURPOSE:  calculates  the  shock  induced  junp  in  vertical  velocity 
and  Modifies  the  wing  boundary  conditions  accordingly 


CALL:  frog  SOLVE 

CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


IT 

XSHKP 


current  value  of  ITER  F 
2-d  array  of  upper  and  lower 
shock  locations 


SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 


POUT 

BUMP 


prints  the  UHK,  V,  FMU  and  ¥ arrays 
function  statement  for  (1«-x)  **2 


DATA  TO  COMMON: 
COMMON 


VARIABLE 


HUREXT 

KINGBC 


¥ 

XOLD 

HBCIJ 

WBCL 


MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 

DX 

CO  E F 

¥2 

TS 


DESCRIPTION 


x/c  range  downstream  of  shock  for  nodified 
boundary  conditions;  set  to  . 1 
alternately  lower  and  upper  surface  wing 
boundary  condition  coefficient 
sguare  of  shock  induced  jump  in  vertical 
velocity 

square  root  of  ¥2  if  ¥2  > 0; 
otherwise  set  to  0. 


¥2 

XS 

XX 


relaxed  and  shifted  shock  location 
(XI  (d)-XS)  /DX 
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—/  -nr 


H DC 

PEAD  STATEMENTS: 
RPITE  STATEMENTS: 
IT. 


1 ■ 


lover  and  upper  surface  wing  boundary 
conditions;  eguivalenced  to  HBCL  and  WBCU 

none 


BORD(L) 


SUBROUTINE  POUT 


r 


; 

; 

] 


PURPOSE:  to  print  a 2-d  array  VAK(K,J)  in  blocks  of  10 

across  the  page 

CALL:  fron  NURE AN 

CALL  STATEMENT: 

ARGUMENT 

VAR 
NK  1 
NK2 
NJ  1 
NJ2 
I TYPE 

SUBROUTINES  CALLED:  none 
DATA  TO  COMMON:  none 

MAIN  INTERNAL  SUBROUTINE  VARIABLES:  none 
READ  STATEMENTS:  none 
WRITE  STATEMENTS: 

VAR  (K,J) 


I 
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DESCRIPTION 

dunay  2-d  array 
starting  value  of  K 
final  value  of  K 
starting  value  of  J 
final  value  of  J 
= 0,  fora  at  = 10E12.4 


— -■■  ■ ■■  • 1 mm  | — | — | ■ | — mmm  mm 


FUNCTION  X LDX 

PURPOSE:  integration  of  PJOriP  at  the  t.e.  to  obtain 
the  lift  coefficient 

CALL:  from  SOLVE , OUTP 

CALL  STATEN  ENT: 

ARGUMENT  DESCRIPTION 

KLAST  Unit  of  integration 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

S IN P Simpson’s  rule  integration 

DATA  TO  COHNON:  none 

READ  STATEMENTS:  none 

WRITE  STATEMENTS:  none 
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SUBROUTINE  SAVSOL 


PURPOSE:  to  write  the  viscous  and/or  inviscid  solution  data 

on  Tape  1 1 

CALL:  froa  MAIN 

CALL  STATEMENT: 

SUBROUTINES  CALLED:  none 

DATA  TO  COMMON:  none 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

N 

NX  JTE  (K)  - JLB  (K)  ♦ 1 

READ  STATEMENTS:  none 
WRITS  STATEMENTS: 

UNIT  11  - TITLE,  KWRITE , ITER,  JMAX,  KM  AX , LH AX , 
LWINGU,  KTIP,  XI(J),  ETA(K),  ZT  (L)  , JNOSE,  JTAIL, 
LBU(K,J),  LBD  (K,  J)  , PJ1MP,  PF(L,K,J),  JHAXX,  KHAXX, 

LM A XX,  LWNGUX,  KTIPX,  XIEX  (J)  , ETAX  (K)  , ZTX  (L)  , 

JNOSEX,  JTAILX,  LBUX(K,J),  LBDX(K,J),  PC(L,K,J), 

DDDSTU  ( K,  J)  , DDDSTL  (K,  J)  , DXLSTO(K,J),  DXLSTL(K,J), 

CPU  (K, J) , C PL  ( K, J) 
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'6.  CDC/IBM  CONVERSION 


The  source  code  has  been  maintained  on  the  NASA  Ames  CDC  76OO  computer 
in  UPDATE  format.  The  generation  of  an  IBM  version  of  the  program  is  accom- 
plished by  using  the  UPDATE  program  to  change  those  portions  of  the  CDC  code 
that  are  not  compatible  with  the  IBM  compiler.  The  specific  changes  required 
are: 

i)  The  CDC  program  card  is  commented  out. 

ii)  The  LEVEL  2 statements  are  deleted  since  extended  core  is  not  avail- 
able in  IBM. 

iii )  Associated  with  the  absence  of  extended  core  in  IBM,  the  PF  (fine 
grid  potential  field)  and  PC  (coarse  grid  potential  field)  arrays  are  stored 
in  code  which  requires  changes  to  the  code  in  subroutine  INTERP,  SOLVE,  SOLVEX, 
DBNDY  and  DBNDYX.  The  LEVEL  1 common  block  PARRY,  which  stores  the  data  trans- 
ferred to  and  from  extended  core,  is  eliminated  from  the  program.  In  subroutine 
INTERP,  local  arrays  P(20, 30,90)  and  PP(20,20,30)  are  introduced  and  equival- 
enced  to  PF  and  PC,  respectively.  In  subroutine  SOLVE  and  DBNDY,  local  arrays 
P( 20, 30, 90)  are  equivalenced  to  PF.  In  subroutine  SOLVES  and  DBNDYX,  local 
arrays  PP( 20,20,30)  are  equivalenced  to  PC.  In  subroutines  INTERP,  SOLVE  and 
SOLVEX,  all  calls  to  READEC  and  WRITEC  are  eliminated.  In  subroutine  INTERP, 
the  streamwise  interpolation  is  between  planes  JO  and  JO-1  rather  than  planes 
2 and  1.  In  subroutines  SOLVE  and  SOLVEX,  the  statement  IS  = JM2  is  deleted 
and  the  statement  JP1  = IS  is  replaced  by  JP1  = JP+1.  These  statements  appear 
after  the  completion  of  the  spanwise  loop.  In  subroutine  SOLVEX,  the  potential 
values  at  the  downstream  boundary  are  explicitly  stored;  i.e.,  the  statement 
JP1  = JM1  is  replaced  by  PP(L,K,JP1)  = PP(L,K,JMl)  in  a double  do-loop. 

iv)  In  subroutine  IC,  the  test  on  an  end  of  file  on  unit  10  is  changed  to 
IBM  format. 

v)  In  subroutine  SPLN1,  the  ENTRY  SPLN1X  statement  is  modified  by  the 
addition  of  the  appropriate  argument  list. 

vi )  In  order  to  ensure  that  the  viscous  program  fits  into  the  available 
SCM  on  the  CDC  7600,  common  block  WING  was  moved  from  LEVEL  1 to  LEVEL  2.  This 
change  required  that  the  arguments  of  subroutine  SLOPY  be  in  LEVEL  2;  thus,  in 
turn,  required  the  generation  of  a LEVEL  1 version  of  SLOPY,  subroutine  SLOPQ, 


that  would  perform  the  same  function  with  LEVEL  1 arguments.  In  the  IBM 
version,  common  block  WING  is  in  core  so  that  references  to  SLOPQ  are  changed 
to  SLOPY.  These  changes  are  in  subroutines  GEOMBR,  GEOBRX,  WINGCO  and  BLLAM. 


vii)  While  not  required  for  IBM  compatibility,  the  writing  of  plot  data 
on  unit  12  in  subroutine  OUTP  has  been  eliminated  in  the  IBM  version  and  replaced 
by  a call  to  subroutine  GRAPH,  which  has  been  inserted  after  the  call  to  sub- 
routine FORCE.  A dummy  version  of  subroutine  GRAPH  has  been  appended  to  the 
IBM  version  of  the  program. 


r 
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7.  GRAPHICS  PACKAGE 

In  general,  three-dimensional  programs  produce  an  immense  amount  of  infor- 
mation. Graphical  output  is  required  in  order  to  make  an  initial  inspection 
of  the  solution  to  determine  if  it  appears  that  a reasonable  result  has  been 
obtained,  as  well  as  to  simplify  the  detailed  analysis  of  the  solution.  With- 
out a graphical  output,  local  anomalies  in  the  result  can  easily  go  undetected 
due  to  the  volume  of  output  generated.  Although  there  is  no  question  concern- 
ing the  value  of  graphics  output,  the  inclusion  of  graphics  in  a code  intended 
for  general  use  causes  some  difficulties  because  the  graphics  routines  are 
usually  installation  dependent.  In  this  program,  we  have  chosen  to  provide  a 
graphics  package  that  uses  standard  CALCQMP  routines.  Users  that  do  not  have 
these  routines  at  their  installation  can  use  the  routines  presented  here  as 
examples  for  creating  their  own  versions  of  the  graphics  package.  For  initial 
use  of  the  code  without  graphics,  GRAPH3  can  be  included  as  a dummy  routine. 

The  information  that  has  been  selected  for  plotting  consists  of: 

i)  Geometry  verification 

ii)  Sti-eamwise  Cp  plots  at  each  span  station  on  the  wing 

iii)  Isobar  plots 

iv)  3-D  Cp  plots 

v)  Spanwise  distribution  of  forces  and  moments 

vi)  Displacement  thickness  distribution  at  each  span  station  on  the  wing 

In  this  section,  we  describe  the  routines  used  in  the  graphics  package  and 
include  an  example  of  the  package  operation.  These  routines  were  developed  on 
a GOULD  plotter,  which  uses  an  electrostatic  print  technique.  For  pen  plotters 
such  as  CALCOMP,  the  isogram  routine  TRIISO  may  require  excessive  pen  commands, 
in  which  case,  it  will  be  necessary  to  replace  the  routine  with  the  equivalent 
routine  in  use  at  the  particular  site. 

The  results  package  consists  of  one  controlling  program  (GRAPH 3 ) and  four 
basic  subroutines,  one  for  each  element  of  the  plot  package.  GEOMVR  is  the 
geometry  verification  program  and  produces  a plot  of  the  planform,  airfoils 
and  input  airfoil  slopes.  This  routine  is  called  before  the  solution  is  started 
and  allows  the  user  to  spot  poor  airfoil  input  and  any  errors  in  the  planform 
CPPLOT  produces  Cp  plots  in  the  standard  format  for  ease  of  comparison  with 
experimental  data.  Tick  marks  are  produced  in  order  to  allow  for  cutting  pages 
to  8^X11.  The  exact  isentropic  value  of  Cp*  is  marked  by  a horizontal  bar  on 
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the  vertical  axis.  Isobars  are  generated  by  subroutine  TRIISO,  which  is  a 
general  contour  plot  routine.  TRIISO  is  a refined  and  extended  version  of 
References  7 and  8.  The  isogram  program  operates  by  a linear  interpolation 
method  in  each  "cell"  so  that  occasional  wiggles  appear  due  to  the  logic  asso- 
ciated with  the  interpolation.  As  presently  set  up,  the  contours  are  arbitrar- 
ily assigned  in  order  to  provide  good  coverage  for  visual  inspection.  If 
specific  contour  lines  are  desired,  GRAPH3  can  be  altered  very  simply  to  choose 
selected  contour  line  values.  Subroutine  SPNPLT  is  used  to  plot  the  spanwise 
variation  of  the  spanload,  moment  distribution,  pressure  drag,  and  local  lift 
coefficient.  If  the  viscous  interaction  effects  are  computed,  GRAPH3  calls 
DSTFLT  in  order  to  plot  6*/C  at  each  span  station.  This  amount  of  information 
is  required  in  order  to  assess  the  full  transonic  solution.  A description  of 
the  graphic  subroutines  and  sample  output  follows.  Figure  12  contains  a flcw- 
cnart  for  GRAPH3  and  Figure  13  provides  samples  after  various  plots  that  are 
generated. 


Figure  12.  Graphics  FYogram  Flowchart 


SUBROUTINE  GRAPH 


PURPOSE:  controls  the  generation  of  plotted  output 

CALL:  fron  OUTP 


CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


2- d array  of  upper  surface  CP’s 
2-d  array  of  lower  surface  CP’s 


SUBROUTINES  CALLED: 


SUBROUTINE  DESCRIPTION 


PLOT 

C P PLOT 
SYM3L4 

VINTER 
TR 1 1 SO 
SPNPLT 
DSTPLT 

LINE 

E PLOT 

DATA  TO  COMMON: 


Grumman  master  plotting  routine;  operation 
depends  on  plotting  library  attached 
generates  CP  plots  at  each  span  station 
Grumman  Calcomp  routine  for  writing 
literal  strings  and  plotting  symbols 
general  Langrangian  interpolation  routine 
contour  plot  routine 

plots  of  spanwise  force  distributions 
generates  delta  * plots  at  each  span 
stat ion 

Grumman  Calcomp  routine  for  plotting 
a line 

entry  point  of  PLOT;  terminates  plotting 


COMMON 


V AR  IABl.E 


I NT  SR 


KING 


ISOGH 


XM  AX 

ZMAX 

EMIN 

YL  El 

X L El 

YTE  I 

XTEI 

XR AN  GE 

YBASE 

YTREL 

XINCH 


XORG 


MAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE 

DESCRIPTION 

KLUED 

determines  CP  plot  mode; 

= 0,  CP  plotted  as  lines; 

= 1,  CP  plotted  as  symbols 

I STR 

*=  1,  indicates  planform  and  mesh  coincide; 
= 0,  planform  and  mesh  do  not  coincide 

KBBL 

= KTM1  if  YAW  = F;  = KROOT  if  YAW 

= T 

XPNT 

local  2-d  array  of  x/c' s covering 

planform 

CPT 

local  array  of  upper  surface  CP's 

CP  B 

local  array  of  lover  surface  CP's 

CC 

local  chord/average  chord 

CLL 

section  lift  coefficient 

CML 

section  moment  coefficient 

CDL 

section  drag  coefficient 

FRAC 

ETA  (K)  / YT  IP 

N NX 

number  of  points  in  XSTAT  array; 

= 31,  if  ISTR  = 0,  = JTE-JLEM  if 

ISTR  = 1 

XSTAT 

array  of  x/c  points  for  TRI1SO 

YPP 

local  array  of  ETA  (K)  - YBASE 

CPS  A V 

2-d  array  for  storing  CP's  for 
planform  plot 

X NEW 

local  array  of  x/c 

CPMRSH 

2-d  array  of  interpolated  CP's  for 

TRIISO 

NZ 

number  of  level  lines  for  TRIISO 

ZCUT 

array  of  equally  spaced  level  line 

XP 

local  array  of  scaled  horizontal  variables 

YYP 

local  array  of  scaled  vertical  variables 

SCALE 

rate  of  x and  y per  inch 

READ  and  WRITE  STATEMENTS: 


wcite  on  and  reads  fro®  unit  99 
emulate  CDC  ENCODE  statement 


to 
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SUBROUTINE  CPPLOT 


PURPOSE:  to  plot  the  surface  pressure  distributions 

at  each  span  station 

CALL:  from  GRAPH 

CALL  STATEMENT: 


ARGUMENT 

DESCRIPTION 

XX 

array  of  x/c  points 

CPU 

array  of  upper  surface  CP's 

C PL 

array  of  lower  surface  CP's 

NMAX 

number  of  points 

TITLE 

literal  array  used  for  plot  title 

FMACH 

freestrean  Mach  number 

ANGLE 

angle  of  attach 

ERROR 

final  level  of  convergence 

K 

span  station  index 

FRAC 

fraction  of  wing  semi-span 

CI.L 

section  lift  coefficient 

CM  L 

section  moment  coefficient 

CDL 

section  drag  coefficient 

KLUE 

=0,  draws  line;  =1#  plots  symbols 

KLUE  set  to  0 in  graph 


SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

SYMBL4  Grumman  Calcomp 

literal  strings 
AXIS  Grumman  calcomp 

annotated  axes 
LINE  Grumman  Calcomp 

a line 

DATA  TO  COMMON:  none 
MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

R local  array  for  storing  literal  strings 

SCALE  rate  of  x/c  per  plot,  inch 

DCP  rate  of  CP  per  plot  inch 


routine  for  writing 
and  plotting  symbols 
routine  for  drawing 

routine  for  plotting 


SUBROUTINE  DSTPLT 


r 


R 


i: 


E 


i 


PURPOSE:  to  plot  Deltastar/C  at  each  span  station 

CALL:  from  GRAPH 3 

CALL  STATEMENT: 


ARGUMENT 

DESCR  IPTION 

XX 

array  of  x/c* s 

DST  ART 

array  of  upper  surface  delta  *’s 

D ST  ARB 

array  of  lower  surface  delta  ♦'  s 

NMAX 

number  of  XX  points 

TITLE 

literal  array  used  for  plot  title 

FH  ACH 

freestream  Mach  number 

ANGLE 

angle  of  attack 

ERROR 

final  level  of  convergence 

FRAC 

fraction  of  wing  semi-span 

K 

span  station  index 

NX 

number  of  mesh  points  along  chord 

RE 

Reynold’s  number 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

routine  for  writing 
and  plotting  syabols 
routine  for  drawing 

DATA  TO  COMMON:  none 


SYMBL4  Grumman  Calcomp 

literal  strings 
AXIS  Grumnan  Calcomp 

annotated  axes 


•IAIN  INTERNAL  SUBROUTINE  VARIABLES: 


VARIABLE  DESCRIPTION 


R 

XHAX 
XN  IN 
SCALE 
X 


local  array  for  storing  literal  strings 

maximum  value  of  XX 

minimum  value  of  XX 

rate  of  x/c  per  inch 

local  array  of  scaled  x/c*s 


READ  and  WRITE  STATEMENTS: 
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SUBROUTINE  TRIISO 


PURPOSE:  to  plot  upper  and  lower  CP  distributions  on 

the  planforn  and  to  generate  planform  isobar  plots 

CALL : £ron  GRAPH3 

CALL  STATEMENT: 


ARGUMENT 

DESCRIPTION 

CPNESH 

2-d  array  of  cp's  interpolated 
to  constant  x/c's 

NX 

nunber  of  X-stations 

NY 

nunber  of  Y-stations 

NT 

number  of  isobar  level  lines 

ZCUTS 

array  of  level  lines  for  isobars 

XH 

array  of  X-points 

YN 

array  of  Y-points 

SC  LE 

rate  of  x and  y per  inch 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

LINE  Grunnan  Calconp  routine  Cor  drawing  lines 

PLOT  Grunnan  master  plotting  routine; 

operation  depends  on  plot  library  attached 
SLETE  finds  X-coordinate  of  I.E  and  TE 

DATA  TO  COMMON:  none 

M AIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

SCALE  rate  of  X and  Y per  inch 

XP  local  X-array  for  drawing  planforn 

and  plotting  CP's  on  planform 
YYP  local  Y-array  for  drawing  planforn 

and  plotting  CP's  on  planform 
NX?  nunber  of  chordwise  CP  points 

at  each  span  station 

XNESH  local  array  of  X-values  which  defne  cells 

Y MESH  local  array  of  Y-values  which  define  cells 

X X-coord inates  of  current  isobar  cell 


1+38 
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Y Y-coordinates  oC  current  isobar  cell 

Z values  of  CP  oo  the  cell 

X END  X-array  of  isobar  intersections 


with  cell  boundary 

TEND  Y-array  of  isobar  intersections 

with  cell  boundary 

XENDS  XEND  array  napped  onto  planforn  and 

scaled  for  plotting 

YEN  OS  YEND  array  napped  onto  planforn  and 

scaled  for  plotting 

READ  STATEMENTS:  none 

WRITE  STATEMENTS:  none 


1 


r 

■ 

I 

SUBROUTINE  SPNPLT 


PURPOSE:  produces  plots  of  the  spauni.se  force 

distribution 

CALL:  from  GRAPH 

CALL  STATEMENT: 

ARGUMENT  DESCRIPTION 

PHACH  freestream  Mach  number 

ANGLE  angle  of  attack 

RE  Reynold's  number 

ERROR  final  level  of  convergence 

ETA  array  of  spanwise  mesh  points 

KROOT  K index  of  wing-body  junction 

KTM  1 K index  of  last  span  point  on  wing 

TITLE  literal  array  for  plot  title 

YTIP  Y-coordinate  of  wing  tip 

SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

LINE  Gruaman  Calcomp  routine  for  plotting  lines 

SYMBL4  Gruaman  Calcomp  routine  for  writing 

literal  strings  and  plotting  symbols 
AXIS  Grumman  Calcomp  routine  for  drawing 

annotated  axes 

PLOT  master  plotting  routine; 

operation  depends  on  plotting  library  attached 

DATA  TO  COMMON:  none 

MAIN  INTERNAL  SUBROUTINE  VARIABLES: 

VARIABLE  DESCRIPTION 

KTIP  local  counter  set  to  KTN1  + 1 

KTOT  number  of  points  between  root  and  tip 

SCALE  scaling  parameter;  .2*YTIP  horizontal 

and  .2  vertical 

X local  array  for  storing  scaled 

spanwise  coordinates 

Y local  array  for  storing  scaled  force 


J 
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H A IN  INTERNAL  SUBROUTINE  V AR I ABLES  (cont. ) 

coefficients 

REAI>  and  WRITE  STATEBENTS: 

write  on  and  reads  from  unit  99  to 
emulate  CDC  ENCODE  statement 


I 

; 


' 


r 


/ 

SUBROUTINE  SLETE 


PURPOSE:  finds  the  X-coordinates  of  the  leading  edge  and 

trailing  edge  fcr  any  span  point  YVAL 

CALL:  froa  TRIISO 

CALL  STATEMENT: 


ARGUMENT  DESCRIPTION 


YVA L input  spanvise  coordinate 

XL  EE  X-coocdinate  of  LE  at  YVAL 

XTEE  X-coordinate  of  TE  at  YVAL 


SUBROUTINES  CALLED: 

SUBROUTINE  DESCRIPTION 

FLIN  statement  function  for  linear  interpolation 

DATA  TO  COMMON:  none 

MAIN  INTERNAL  SUBROUTINE  VARIABLES:  none 
READ  STATEMENTS:  none 
WRITE  STATEMENTS:  none 
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SUBROUTINE  GEOflVR 


PURPOSE:  geoaetry  verification  routine 

CALL:  from  MAIN 


CALL  STATEMENT: 


ARGUMENT 

DESCR IPTION 

11 

= 1» 

plot 

planf  ora; 

= 0, 

omit 

12 

= 1, 

plot 

input  airfoil  sections; 

=0, 

oait 

13 

= 1, 

plot 

upper  and  lower  wing  slopes; 

=o# 

omit 

14 

= 1, 

plot 

IBODIN  geometry; 

= 0# 

oait 

15 

= 1, 

plot 

aeshes; 

= 0, 

oait 

16 

= 1, 

plot 

XI=0  and  X 1=  1 on  planf orm; 

= 0, 

oait 

17 

= 1, 

p lot 

B.C.  support  surface; 

= 0# 

omit 

18 

= 1, 

plot 

wing  twists; 

= 0, 

omit 

19 

= 1, 

plot 

body  slopes; 

= 0, 

oait 

TEST 

= STOP,  terminate  run 

=GO 

# continue  execution 

SUBROUTINES  CALLED: 


SUBROUTINE  DESCRIPTION 


PLOT 


PLOTS 

SYMBL4 


LINE 


Grunnan  Raster  plotting  routine;  operation 
depends  on  plotting  library  attached 
entry  point  of  plot;  initiates  plotting 
Grumman  Calcoap  routine  for  writing 
literal  strings  and  plotting  synbols 
Grumman  Calcoap  routine  for  plotting 


AXIS 


Grumman  Calcoap 
a line 

Grumman  Calcoap 
annotated  axes 


routine  for  drawing 


DATA  TO  COMMON:  none 


1 


MAIN  INTERNAL  SO  BRODT INE  VARIABLES: 


VARIABLE  DESCRIPTIO! 


ICALL 

XP 

YYP 

TEMP 

MESH 


X PNT 

YPNT 

SCALE 

SCALX 

SCALEY 


=0,  first  call  to  GKOMVR ; 

=1,  subsequent  call  to  GEOMVR 
local  array  of  scaled  horizontal  variables 
local  array  of  scaled  vertical  variables 
local  array  for  aesh  dependent  data 
- 1 , initial  aesh; 

= 2,  interior  fine  mesh; 

-3,  exterior  coarse  mesh 

aorizontal  coordinate  scaled  for  plotting 
vertical  coordinate  scaled  for  plotting 
rate  of  x and/or  y per  inch 
rate  of  x per  inch 
rate  of  y per  inch 


READ  and  WRITE  STATEMENTS: 

write  on  and  reads  from  unit  99  to 
emulate  CDC  ENCODE  stateaent 


Figure  13b.  Sample  Geometry  Verification  - Airfoil  Sections 


INCLINATION 


WITH  AER0ELR5TIC  TWI5T 


BODY  COORDINATES MAX  HALF-BREDTH  IN  X-Y  PLANE 

TACT  WITH  AER0ELA5TIC  TWIST 


XI 


XI  GRID  DISTRIBUTION  (INTERIOR  MESH) 

F-8  CASE 

Figure  13g.  Sample  Geometry  Verification  - XI-Grid  Cn  Interior  Mesh 
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ETA  GRID  DI5TRI8UTI0N  (INTERIOR  MESH) 

F-8  CASE 

Figure  13h.  Sample  Geometry  Verification  - ETA -Grid  On  Interior  Mesh 
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ZT 


ZT  GRID  DISTRIBUTION  (INTERIOR  MESH) 

F-8  C9SE 

Figure  13i.  Sample  Geometry  Verification  - ZT-Grid  on  Interior  Mesh 

*♦53 


Figure  13j.  Sample  Geometry  Verification  - XI=0  and  XI=1.  Lines  On  Interior  Mesh 


B.C.  SUPPORT  SURFRCE  (INTERIOR  MESH) 

NRCA  TN  D-712  BRICK  BODY 

Figure  13k.  Sample  Geometry  Verification  - B.C.  Support  Surface  on  Interior  Mesh 
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B.r.  SUPPORT  SURFRCE  (EXTERIOR  MESH) 

NRCfi  TN  D-712  BRICK  BODY 

Figure  131.  Sample  Geometry  Verification  - B.C.  Support  Surface  on  Exterior  Mesh 
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nC^InATION 


TRANSONIC  TRANSPORT 

M=.810  ALF=  2.000  RE=0.0  CONV=. 330E-04 

CL=  0.406  CD=  0.0085  CM=  -0.551 


100  "tP  005  '0-  OOti’O- 


000  0.200  0.400  0.600  0.800  1.000 

r/s 


TRANSONIC  TRANSPORT 

M=. 810  ALF=  2.000  RE=0.0  CONV=. 330E-04 

CL=  0.406  CD=  0.0085  CM=  -0.551 


Fttrur^  13u.  Sample  Final  Solution  Plot*  - rra*  Span  load 


OOh 


00  ti 


000 


o' 200 


oluoo 


0.'600 


r/s 


0.*800 


1.000 


TRANSONIC  TRANSPORT 

M=. 810  ALF=  2.000  RE=0.0  CONV=. 330E-04 

CL=  0.406  CD=  0.0085  CM=  -0.551 


Figure  13w.  Sample  Final  Solution  Plots  - Section  Lift  Coefficient 
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